Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter. More...

Detailed Description

Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter.

See the documentation of setFFTI for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),

containing the periodic sequence whose FFT is to be computed.

Returns: fft : The output vector of the same type, kind, and size as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftpack, only: getFFTI

fft = getFFTI(data(:))

pm_fftpack::getFFTI
Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex...
Definition: pm_fftpack.F90:1567

pm_fftpack
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftpack.F90:205

Remarks: The procedures under discussion are impure.

Note: This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.

See also: getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_fftpack, only: getfactorFFT

6 use pm_fftpack, only: getFFTF, getFFTI

7 use pm_distUnif, only: getUnifRand

8 use pm_mathCompare, only: isClose

9 use pm_err, only: setAsserted

10

11 implicit none

12

13 integer(IK) :: i

14 integer(IK) :: lenData

15 type(display_type) :: disp

16 disp = display_type(file = "main.out.F90")

17

18 do i = 1, 5

19 block

20 use pm_kind, only: TKG => CKS

21 real(TKG) :: reltol

22 complex(TKG), allocatable :: data(:), adat(:)

23 call disp%show("lenData = getUnifRand(5, 100)")

24 lenData = getUnifRand(5, 100)

25 call disp%show("lenData")

26 call disp%show( lenData )

27 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")

28 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

29 call disp%show("data")

30 call disp%show( data )

31 call disp%skip()

32 call disp%show("adat = getFFTI(getFFTF(data))")

33 adat = getFFTI(getFFTF(data))

34 call disp%show("adat")

35 call disp%show( adat )

36 call disp%show("reltol = sqrt(epsilon(1._TKG))")

37 reltol = sqrt(epsilon(1._TKG))

38 call disp%show("reltol")

39 call disp%show( reltol )

40 call disp%show("isClose(data, adat, reltol = reltol)")

41 call disp%show( isClose(data, adat, reltol = reltol) )

42 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

43 call setAsserted(all(isClose(data, adat, reltol = reltol)))

44 call disp%skip()

45 end block

46

47 block

48 use pm_kind, only: TKG => CKD

49 real(TKG) :: reltol

50 complex(TKG), allocatable :: data(:), adat(:)

51 call disp%show("lenData = getUnifRand(5, 100)")

52 lenData = getUnifRand(5, 100)

53 call disp%show("lenData")

54 call disp%show( lenData )

55 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")

56 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

57 call disp%show("data")

58 call disp%show( data )

59 call disp%skip()

60 call disp%show("adat = getFFTI(getFFTF(data))")

61 adat = getFFTI(getFFTF(data))

62 call disp%show("adat")

63 call disp%show( adat )

64 call disp%show("reltol = sqrt(epsilon(1._TKG))")

65 reltol = sqrt(epsilon(1._TKG))

66 call disp%show("reltol")

67 call disp%show( reltol )

68 call disp%show("isClose(data, adat, reltol = reltol)")

69 call disp%show( isClose(data, adat, reltol = reltol) )

70 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

71 call setAsserted(all(isClose(data, adat, reltol = reltol)))

72 call disp%skip()

73 end block

74

75 block

76 use pm_kind, only: TKG => CKH

77 real(TKG) :: reltol

78 complex(TKG), allocatable :: data(:), adat(:)

79 call disp%show("lenData = getUnifRand(5, 100)")

80 lenData = getUnifRand(5, 100)

81 call disp%show("lenData")

82 call disp%show( lenData )

83 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")

84 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

85 call disp%show("data")

86 call disp%show( data )

87 call disp%skip()

88 call disp%show("adat = getFFTI(getFFTF(data))")

89 adat = getFFTI(getFFTF(data))

90 call disp%show("adat")

91 call disp%show( adat )

92 call disp%show("reltol = sqrt(epsilon(1._TKG))")

93 reltol = sqrt(epsilon(1._TKG))

94 call disp%show("reltol")

95 call disp%show( reltol )

96 call disp%show("isClose(data, adat, reltol = reltol)")

97 call disp%show( isClose(data, adat, reltol = reltol) )

98 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

99 call setAsserted(all(isClose(data, adat, reltol = reltol)))

100 call disp%skip()

101 end block

102

103 block

104 use pm_kind, only: TKG => RKS

105 real(TKG) :: reltol

106 real(TKG), allocatable :: data(:), adat(:)

107 call disp%show("lenData = getUnifRand(5, 100)")

108 lenData = getUnifRand(5, 100)

109 call disp%show("lenData")

110 call disp%show( lenData )

111 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")

112 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

113 call disp%show("data")

114 call disp%show( data )

115 call disp%skip()

116 call disp%show("adat = getFFTI(getFFTF(data))")

117 adat = getFFTI(getFFTF(data))

118 call disp%show("adat")

119 call disp%show( adat )

120 call disp%show("reltol = sqrt(epsilon(1._TKG))")

121 reltol = sqrt(epsilon(1._TKG))

122 call disp%show("reltol")

123 call disp%show( reltol )

124 call disp%show("isClose(data, adat, reltol = reltol)")

125 call disp%show( isClose(data, adat, reltol = reltol) )

126 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

127 call setAsserted(all(isClose(data, adat, reltol = reltol)))

128 call disp%skip()

129 end block

130

131 block

132 use pm_kind, only: TKG => RKD

133 real(TKG) :: reltol

134 real(TKG), allocatable :: data(:), adat(:)

135 call disp%show("lenData = getUnifRand(5, 100)")

136 lenData = getUnifRand(5, 100)

137 call disp%show("lenData")

138 call disp%show( lenData )

139 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")

140 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

141 call disp%show("data")

142 call disp%show( data )

143 call disp%skip()

144 call disp%show("adat = getFFTI(getFFTF(data))")

145 adat = getFFTI(getFFTF(data))

146 call disp%show("adat")

147 call disp%show( adat )

148 call disp%show("reltol = sqrt(epsilon(1._TKG))")

149 reltol = sqrt(epsilon(1._TKG))

150 call disp%show("reltol")

151 call disp%show( reltol )

152 call disp%show("isClose(data, adat, reltol = reltol)")

153 call disp%show( isClose(data, adat, reltol = reltol) )

154 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

155 call setAsserted(all(isClose(data, adat, reltol = reltol)))

156 call disp%skip()

157 end block

158

159 block

160 use pm_kind, only: TKG => RKH

161 real(TKG) :: reltol

162 real(TKG), allocatable :: data(:), adat(:)

163 call disp%show("lenData = getUnifRand(5, 100)")

164 lenData = getUnifRand(5, 100)

165 call disp%show("lenData")

166 call disp%show( lenData )

167 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")

168 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

169 call disp%show("data")

170 call disp%show( data )

171 call disp%skip()

172 call disp%show("adat = getFFTI(getFFTF(data))")

173 adat = getFFTI(getFFTF(data))

174 call disp%show("adat")

175 call disp%show( adat )

176 call disp%show("reltol = sqrt(epsilon(1._TKG))")

177 reltol = sqrt(epsilon(1._TKG))

178 call disp%show("reltol")

179 call disp%show( reltol )

180 call disp%show("isClose(data, adat, reltol = reltol)")

181 call disp%show( isClose(data, adat, reltol = reltol) )

182 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

183 call setAsserted(all(isClose(data, adat, reltol = reltol)))

184 call disp%skip()

185 end block

186 end do

187

188end program example

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4150

pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735

pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618

pm_fftpack::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftpack.F90:746

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508

pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:535

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541

pm_kind::CKH
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843

pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540

pm_kind::CKD
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:571

pm_kind::RKD
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:568

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539

pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858

pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567

pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)

2lenData

3+60

4data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

5data

6(+1.19243574, +0.424037278), (+1.16340256, +0.580144942), (+1.61827230, +0.533243656), (+1.62122488, +0.998871684), (+1.71662700, +0.609864652), (+1.37943196, +0.254662633E-1), (+1.79620218, +0.211448133), (+1.58120596, +0.476945877), (+1.87459993, +0.885291755), (+1.97683752, +0.518819690E-1), (+1.90676343, +0.953145027E-1), (+1.71225131, +0.720916212), (+1.42211103, +0.550781608), (+1.41116500, +0.297305644), (+1.06502175, +0.101513505), (+1.42282319, +0.736487508), (+1.29663086, +0.752596855E-1), (+1.88788271, +0.884494603), (+1.52421808, +0.125019312), (+1.03278947, +0.260236859E-1), (+1.59963489, +0.664348304), (+1.16569531, +0.284172416), (+1.66801786, +0.283101082), (+1.10686648, +0.104107261), (+1.82233858, +0.591357231), (+1.15898895, +0.246686757), (+1.23068476, +0.128187001), (+1.80489230, +0.723658502), (+1.86138153, +0.938327789), (+1.50954199, +0.405717254), (+1.99237406, +0.230803907), (+1.55667043, +0.664188564), (+1.86520743, +0.401413500), (+1.08601975, +0.582493484), (+1.59276676, +0.620989799E-1), (+1.25270236, +0.383086979), (+1.34426904, +0.955603123), (+1.56405997, +0.650042772), (+1.55940104, +0.763975143), (+1.83698750, +0.807012618), (+1.66479754, +0.892936110), (+1.26515281, +0.395557582), (+1.42119288, +0.865356147), (+1.22597003, +0.559072912), (+1.72877717, +0.372902751), (+1.58172870, +0.720294952), (+1.22525418, +0.316295028), (+1.26367426, +0.459742308), (+1.52767408, +0.176920414), (+1.33101857, +0.977711082E-1), (+1.66152334, +0.852146149E-1), (+1.57008481, +0.231484830), (+1.12739587, +0.610911250E-1), (+1.36253428, +0.555456400), (+1.22582960, +0.748650491), (+1.77829432, +0.423995197), (+1.62989998, +0.503251135), (+1.02413964, +0.515710056), (+1.81530285, +0.654335320), (+1.98834968, +0.187491894)

7

8adat = getFFTI(getFFTF(data))

9adat

10(+1.19243574, +0.424037248), (+1.16340268, +0.580144942), (+1.61827266, +0.533243775), (+1.62122524, +0.998871803), (+1.71662700, +0.609864593), (+1.37943196, +0.254661888E-1), (+1.79620242, +0.211448178), (+1.58120596, +0.476945966), (+1.87460017, +0.885291696), (+1.97683775, +0.518819913E-1), (+1.90676343, +0.953144580E-1), (+1.71225119, +0.720916212), (+1.42211151, +0.550781667), (+1.41116500, +0.297305524), (+1.06502199, +0.101513505), (+1.42282331, +0.736487567), (+1.29663086, +0.752596632E-1), (+1.88788283, +0.884494722), (+1.52421820, +0.125019342), (+1.03278947, +0.260237064E-1), (+1.59963489, +0.664348245), (+1.16569531, +0.284172416), (+1.66801810, +0.283101171), (+1.10686672, +0.104107283), (+1.82233870, +0.591357172), (+1.15898883, +0.246686757), (+1.23068488, +0.128186926), (+1.80489230, +0.723658621), (+1.86138177, +0.938327909), (+1.50954199, +0.405717313), (+1.99237406, +0.230803877), (+1.55667031, +0.664188623), (+1.86520767, +0.401413560), (+1.08601999, +0.582493603), (+1.59276688, +0.620989762E-1), (+1.25270247, +0.383086920), (+1.34426916, +0.955603063), (+1.56405985, +0.650042832), (+1.55940115, +0.763975263), (+1.83698761, +0.807012677), (+1.66479743, +0.892936051), (+1.26515293, +0.395557553), (+1.42119324, +0.865356326), (+1.22597015, +0.559072971), (+1.72877729, +0.372902691), (+1.58172870, +0.720295012), (+1.22525418, +0.316294909), (+1.26367438, +0.459742367), (+1.52767432, +0.176920488), (+1.33101857, +0.977711454E-1), (+1.66152334, +0.852146372E-1), (+1.57008481, +0.231484875), (+1.12739611, +0.610911027E-1), (+1.36253464, +0.555456460), (+1.22582972, +0.748650670), (+1.77829444, +0.423995137), (+1.62989998, +0.503251016), (+1.02413964, +0.515710235), (+1.81530297, +0.654335320), (+1.98834980, +0.187491834)

11reltol = sqrt(epsilon(1._TKG))

12reltol

13+0.345266977E-3

14isClose(data, adat, reltol = reltol)

15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

16call setAsserted(all(isClose(data, adat, reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+12

21data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

22data

23(+1.0473681967018558, +0.74665235165193822), (+1.4147753770025862, +0.69339261027024346), (+1.9951964986039326, +0.11551645395329746), (+1.3639306656287107, +0.81283133385851614), (+1.9563027761772123, +0.35205036577181947), (+1.7308701076276671, +0.44675735295311303), (+1.2491947641399341, +0.50884244823521496E-1), (+1.0611942114504016, +0.22386396143672194), (+1.4511222230776935, +0.86750568249948556), (+1.6359776985992376, +0.69804805183437335), (+1.8355507556277879, +0.72866728229994804), (+1.0875243940665766, +0.79032304782018548)

24

25adat = getFFTI(getFFTF(data))

26adat

27(+1.0473681967018558, +0.74665235165193811), (+1.4147753770025862, +0.69339261027024346), (+1.9951964986039323, +0.11551645395329742), (+1.3639306656287107, +0.81283133385851614), (+1.9563027761772123, +0.35205036577181947), (+1.7308701076276674, +0.44675735295311308), (+1.2491947641399341, +0.50884244823521309E-1), (+1.0611942114504018, +0.22386396143672194), (+1.4511222230776932, +0.86750568249948545), (+1.6359776985992378, +0.69804805183437335), (+1.8355507556277875, +0.72866728229994782), (+1.0875243940665769, +0.79032304782018548)

28reltol = sqrt(epsilon(1._TKG))

29reltol

30+0.14901161193847656E-7

31isClose(data, adat, reltol = reltol)

32T, T, T, T, T, T, T, T, T, T, T, T

33call setAsserted(all(isClose(data, adat, reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+30

38data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

39data

40(+1.97786902957349051437088319180510276, +0.622878484722703354811258523681745440), (+1.57264156733974863092694451854772895, +0.339001407985670152800686314042572068), (+1.11361014042901266495809030462717835, +0.251513939686094046564090297032430290), (+1.99941171978837799851300562095145523, +0.788606244066748661504235024597626693), (+1.41201940067646231811513226653041285, +0.288981842301005297886031585566122468), (+1.11714005552507427445447962498622735, +0.866837219179555057209401686641701957), (+1.38107147544021505618826908989180088, +0.360015853840015378269082963354743892), (+1.54869738741446984698795335696424193, +0.893411226383997452855583076838079227), (+1.76540363078205388143912603261053333, +0.438579840582284578950284525265287853), (+1.94800401992300111669539639311234853, +0.587859085469052216840176072924293709), (+1.15034757148724791959687107701995835, +0.730092733760595981039120705387343259), (+1.75360735114346892877839402280134142, +0.836584454954077497089215271708564496), (+1.58148367234817651864588668251202288, +0.345734870192675297401926305975693033), (+1.05028848475254479896860885457326876, +0.280100368341901958821235452290179744E-3), (+1.56873259506113417886515979941543452, +0.989955359628341475479339346035757727), (+1.57484083217150200781871080226033686, +0.398751101352584430606848786519352736), (+1.66466451545137148606502896631222142, +0.846440205705145751910328770912781777), (+1.70145289941347385870661573882843727, +0.936044873068713233630999186781455073), (+1.68237594356069788641237565097451099, +0.582907106079874416383249489941861748), (+1.04959625050716038994063617150587070, +0.185151576574543761084654400443660765), (+1.97239545857854227319346695758063098, +0.752292725644803850679707309430185652), (+1.49593712438638037710114049891783798, +0.409305438724242407131915707000059724), (+1.96762978650855770065041053119202528, +0.823731732926862657189822346911421150), (+1.28670011979192958208442556258179623, +0.295665851736352871866273505526053584), (+1.09714752520982080928190421532327189, +0.960589580270191555819804071984337653), (+1.53872382165097301208531202060037827, +0.839350575096228520985799862252943952), (+1.75193002282324120968785743100498244, +0.969991007480745779245326524699635167), (+1.19929121115400966776424143274644554, +0.178856946105875530166997797526536591), (+1.08823309748279833957520929292858603, +0.885774747283008037201351888020418486), (+1.83065857220908409517475790343188749, +0.866617184316017737909481611710326831)

41

42adat = getFFTI(getFFTF(data))

43adat

44(+1.97786902957349051437088319180510276, +0.622878484722703354811258523681745247), (+1.57264156733974863092694451854772876, +0.339001407985670152800686314042572164), (+1.11361014042901266495809030462717835, +0.251513939686094046564090297032430242), (+1.99941171978837799851300562095145562, +0.788606244066748661504235024597626790), (+1.41201940067646231811513226653041265, +0.288981842301005297886031585566122372), (+1.11714005552507427445447962498622754, +0.866837219179555057209401686641701861), (+1.38107147544021505618826908989180049, +0.360015853840015378269082963354743941), (+1.54869738741446984698795335696424213, +0.893411226383997452855583076838079035), (+1.76540363078205388143912603261053333, +0.438579840582284578950284525265287998), (+1.94800401992300111669539639311234833, +0.587859085469052216840176072924293806), (+1.15034757148724791959687107701995835, +0.730092733760595981039120705387343162), (+1.75360735114346892877839402280134142, +0.836584454954077497089215271708564592), (+1.58148367234817651864588668251202288, +0.345734870192675297401926305975692889), (+1.05028848475254479896860885457326914, +0.280100368341901958821235452290141235E-3), (+1.56873259506113417886515979941543452, +0.989955359628341475479339346035757920), (+1.57484083217150200781871080226033667, +0.398751101352584430606848786519352687), (+1.66466451545137148606502896631222142, +0.846440205705145751910328770912781777), (+1.70145289941347385870661573882843766, +0.936044873068713233630999186781454977), (+1.68237594356069788641237565097451119, +0.582907106079874416383249489941861651), (+1.04959625050716038994063617150587070, +0.185151576574543761084654400443660693), (+1.97239545857854227319346695758063098, +0.752292725644803850679707309430185652), (+1.49593712438638037710114049891783779, +0.409305438724242407131915707000059916), (+1.96762978650855770065041053119202528, +0.823731732926862657189822346911421054), (+1.28670011979192958208442556258179662, +0.295665851736352871866273505526053632), (+1.09714752520982080928190421532327170, +0.960589580270191555819804071984337557), (+1.53872382165097301208531202060037847, +0.839350575096228520985799862252943759), (+1.75193002282324120968785743100498206, +0.969991007480745779245326524699635359), (+1.19929121115400966776424143274644593, +0.178856946105875530166997797526536663), (+1.08823309748279833957520929292858623, +0.885774747283008037201351888020418582), (+1.83065857220908409517475790343188749, +0.866617184316017737909481611710326831)

45reltol = sqrt(epsilon(1._TKG))

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, adat, reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

50call setAsserted(all(isClose(data, adat, reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+78

55data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

56data

57+1.89400196, +1.03175259, +1.80292106, +1.77260327, +1.20975065, +1.15502143, +1.92229581, +1.54455137, +1.03833938, +1.97998524, +1.10186386, +1.44897342, +1.69665003, +1.95265698, +1.78469205, +1.03975022, +1.47425151, +1.99266458, +1.58783627, +1.74506915, +1.38272786, +1.95355916, +1.21948588, +1.97437119, +1.29092932, +1.78994095, +1.76756310, +1.21807694, +1.17772532, +1.83755636, +1.91616464, +1.76790190, +1.16234231, +1.43598807, +1.95763814, +1.24122131, +1.82502961, +1.09164119, +1.70605516, +1.38033557, +1.94058609, +1.38257599, +1.08143449, +1.89012742, +1.81092238, +1.62848735, +1.83967745, +1.20182121, +1.88778603, +1.36300707, +1.20214868, +1.71054077, +1.51712525, +1.09241545, +1.76787412, +1.06593585, +1.03101552, +1.20672274, +1.24761295, +1.04737496, +1.81461644, +1.48227215, +1.62195265, +1.10143292, +1.75465286, +1.85163510, +1.57976890, +1.29549158, +1.94326723, +1.06977832, +1.24776411, +1.69599783, +1.80593526, +1.92616081, +1.07279420, +1.25239289, +1.24989438, +1.08856416

58

59adat = getFFTI(getFFTF(data))

60adat

61+1.89400232, +1.03175282, +1.80292118, +1.77260339, +1.20975101, +1.15502167, +1.92229581, +1.54455149, +1.03833914, +1.97998524, +1.10186386, +1.44897330, +1.69664979, +1.95265710, +1.78469205, +1.03975046, +1.47425199, +1.99266469, +1.58783603, +1.74506891, +1.38272715, +1.95355928, +1.21948552, +1.97437096, +1.29092920, +1.78994131, +1.76756322, +1.21807718, +1.17772555, +1.83755648, +1.91616452, +1.76790154, +1.16234136, +1.43598771, +1.95763767, +1.24122107, +1.82502985, +1.09164214, +1.70605624, +1.38033640, +1.94058704, +1.38257682, +1.08143532, +1.89012790, +1.81092370, +1.62848794, +1.83967865, +1.20182216, +1.88778555, +1.36300695, +1.20214772, +1.71054065, +1.51712477, +1.09241498, +1.76787412, +1.06593597, +1.03101575, +1.20672286, +1.24761319, +1.04737520, +1.81461608, +1.48227191, +1.62195194, +1.10143292, +1.75465262, +1.85163474, +1.57976866, +1.29549170, +1.94326723, +1.06977832, +1.24776435, +1.69599819, +1.80593503, +1.92616093, +1.07279384, +1.25239289, +1.24989450, +1.08856404

62reltol = sqrt(epsilon(1._TKG))

63reltol

64+0.345266977E-3

65isClose(data, adat, reltol = reltol)

66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

67call setAsserted(all(isClose(data, adat, reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+78

72data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

73data

74+1.8166865247719395, +1.9189585538841927, +1.2325535491845969, +1.5036920444868089, +1.0296053126258502, +1.9891540041281852, +1.4489578059739325, +1.8646824434338374, +1.0990890842469869, +1.4235171584551114, +1.1532347473349476, +1.6133965296185799, +1.8264844067618236, +1.7870719721851063, +1.4417102048233543, +1.0666836042088905, +1.9345029559015336, +1.5054328271323203, +1.2570232950157851, +1.1791298745551559, +1.9424339043113275, +1.2184269915050585, +1.7659363535654589, +1.7921950167694964, +1.4815199648814970, +1.5696192881816389, +1.3584705064048426, +1.1543716124353380, +1.8325581928628893, +1.4919393035506832, +1.1737061333082046, +1.8886679560934592, +1.0534058701609990, +1.1237465198275460, +1.7563559810519367, +1.8260244415726357, +1.8700214900661756, +1.1239893264317549, +1.1430399977485477, +1.2921251892183303, +1.6370603480696029, +1.3177934394773922, +1.1578378713635344, +1.3838363576610690, +1.0462583692135383, +1.8093483308993867, +1.0273422712228251, +1.5556887594002313, +1.0676919218809882, +1.0080728810872697, +1.9455040929844940, +1.3896824920647337, +1.0068774780013818, +1.9789421653729091, +1.7932892002327772, +1.0247210432061049, +1.9167769049337195, +1.3690885277324705, +1.8656604195014745, +1.9809439417248704, +1.5189075219407204, +1.5481815383686710, +1.9402809891924004, +1.9675637885623987, +1.8562750571671294, +1.7593793920189460, +1.6784490519814486, +1.5177335471529494, +1.4060089947103709, +1.5295185071173314, +1.3827695673053872, +1.4668718267668310, +1.3459740150535475, +1.3349483323740574, +1.6651836181461515, +1.2095630949844716, +1.5045336333687487, +1.3280593949865196

75

76adat = getFFTI(getFFTF(data))

77adat

78+1.8166865247719393, +1.9189585538841925, +1.2325535491845971, +1.5036920444868089, +1.0296053126258500, +1.9891540041281854, +1.4489578059739323, +1.8646824434338374, +1.0990890842469869, +1.4235171584551114, +1.1532347473349476, +1.6133965296185802, +1.8264844067618231, +1.7870719721851056, +1.4417102048233541, +1.0666836042088903, +1.9345029559015336, +1.5054328271323196, +1.2570232950157858, +1.1791298745551559, +1.9424339043113272, +1.2184269915050590, +1.7659363535654593, +1.7921950167694969, +1.4815199648814965, +1.5696192881816382, +1.3584705064048423, +1.1543716124353371, +1.8325581928628896, +1.4919393035506827, +1.1737061333082055, +1.8886679560934596, +1.0534058701609992, +1.1237465198275467, +1.7563559810519376, +1.8260244415726368, +1.8700214900661740, +1.1239893264317533, +1.1430399977485473, +1.2921251892183288, +1.6370603480696018, +1.3177934394773909, +1.1578378713635320, +1.3838363576610682, +1.0462583692135372, +1.8093483308993854, +1.0273422712228237, +1.5556887594002304, +1.0676919218809890, +1.0080728810872699, +1.9455040929844949, +1.3896824920647342, +1.0068774780013825, +1.9789421653729098, +1.7932892002327767, +1.0247210432061042, +1.9167769049337193, +1.3690885277324703, +1.8656604195014745, +1.9809439417248700, +1.5189075219407211, +1.5481815383686712, +1.9402809891924002, +1.9675637885623991, +1.8562750571671303, +1.7593793920189467, +1.6784490519814479, +1.5177335471529489, +1.4060089947103707, +1.5295185071173309, +1.3827695673053875, +1.4668718267668304, +1.3459740150535477, +1.3349483323740576, +1.6651836181461512, +1.2095630949844718, +1.5045336333687487, +1.3280593949865198

79reltol = sqrt(epsilon(1._TKG))

80reltol

81+0.14901161193847656E-7

82isClose(data, adat, reltol = reltol)

83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

84call setAsserted(all(isClose(data, adat, reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+30

89data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

90data

91+1.70375397207327685382433954357230232, +1.17255463350171059607557258797260874, +1.21233556320815657096497909410919468, +1.35857346151227617899581076217116037, +1.02469150081238795224781914802054540, +1.17402635659094405546705910743490411, +1.87026284835059968110201801497770393, +1.96399052355914300716750079851495669, +1.32838175985249016437378867954718131, +1.22946109822337157407320322217405177, +1.19529445907139593658841235153849098, +1.47313181517185933317287749656116367, +1.60748410592145487604272920800750051, +1.12021237232310298372818992018157256, +1.88411867394907218085137564845845627, +1.01476370811668400831998621268235502, +1.22710378176603273464961650424948874, +1.65077309325419377469477303018702905, +1.90025438675537649935749759649207179, +1.53054298728768639023172464822740007, +1.60419853847575865991514518182598629, +1.17797776951282370548696897506647000, +1.66858191570995239068795865204764115, +1.45888165325038603354994945653584920, +1.93402193461986840954060319710866133, +1.01325974770344954748629351685053765, +1.12109493084410929397404939436919982, +1.21888031680412298089277649076129501, +1.88286963588293383471898376163783676, +1.28314215217411996799823928052707138

92

93adat = getFFTI(getFFTF(data))

94adat

95+1.70375397207327685382433954357230213, +1.17255463350171059607557258797260854, +1.21233556320815657096497909410919468, +1.35857346151227617899581076217115998, +1.02469150081238795224781914802054540, +1.17402635659094405546705910743490373, +1.87026284835059968110201801497770393, +1.96399052355914300716750079851495669, +1.32838175985249016437378867954718189, +1.22946109822337157407320322217405157, +1.19529445907139593658841235153849137, +1.47313181517185933317287749656116328, +1.60748410592145487604272920800750051, +1.12021237232310298372818992018157237, +1.88411867394907218085137564845845646, +1.01476370811668400831998621268235482, +1.22710378176603273464961650424948874, +1.65077309325419377469477303018702886, +1.90025438675537649935749759649207199, +1.53054298728768639023172464822740007, +1.60419853847575865991514518182598629, +1.17797776951282370548696897506646961, +1.66858191570995239068795865204764096, +1.45888165325038603354994945653584901, +1.93402193461986840954060319710866133, +1.01325974770344954748629351685053746, +1.12109493084410929397404939436920020, +1.21888031680412298089277649076129481, +1.88286963588293383471898376163783676, +1.28314215217411996799823928052707099

96reltol = sqrt(epsilon(1._TKG))

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, adat, reltol = reltol)

100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

101call setAsserted(all(isClose(data, adat, reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+85

106data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

107data

108(+1.90754557, +0.197785318), (+1.06743383, +0.334750056), (+1.28625131, +0.936473608), (+1.98161125, +0.492160499), (+1.07393003, +0.619653583), (+1.06528938, +0.226938307), (+1.60472739, +0.106946707), (+1.91491175, +0.796518981), (+1.49405646, +0.766052604), (+1.61335230, +0.939330876), (+1.90252876, +0.200616479), (+1.29237306, +0.920158982), (+1.88335323, +0.931280851), (+1.24889898, +0.249297023E-1), (+1.36809850, +0.739584684), (+1.67279363, +0.686784267), (+1.27760959, +0.912351191), (+1.45427465, +0.255406380), (+1.33492398, +0.818079114E-1), (+1.18685412, +0.283987045), (+1.86908221, +0.679525673), (+1.15136719, +0.266254842), (+1.51165032, +0.238967240), (+1.18975496, +0.873368859), (+1.85102916, +0.643491089), (+1.74493551, +0.940805972), (+1.78597116, +0.880932212), (+1.40753913, +0.594374537E-1), (+1.20736277, +0.843508661), (+1.77328551, +0.891658366), (+1.75611949, +0.738468647), (+1.08808589, +0.485687912), (+1.07662928, +0.271942019E-1), (+1.05924666, +0.756351769), (+1.25838447, +0.834133923), (+1.52758288, +0.893954754), (+1.48899865, +0.119615912), (+1.31489980, +0.300551772), (+1.25762510, +0.709557593), (+1.75706673, +0.623656511), (+1.52010322, +0.358002484), (+1.16215360, +0.579897046), (+1.16124630, +0.861713409), (+1.51520348, +0.634763479), (+1.98708880, +0.961570144), (+1.15792418, +0.527157426), (+1.50816405, +0.335802436), (+1.43511724, +0.512252033), (+1.10467851, +0.246484458), (+1.92431760, +0.396692753E-2), (+1.35502172, +0.117443979), (+1.87012243, +0.964932919), (+1.26766467, +0.546919048), (+1.40892029, +0.159642100), (+1.03763843, +0.380576551), (+1.41501880, +0.258491218), (+1.63471484, +0.267623365), (+1.02442789, +0.706180632), (+1.16770554, +0.416351855), (+1.03244925, +0.219135821), (+1.39223278, +0.615685165), (+1.22108996, +0.540578365E-2), (+1.33799207, +0.986890793), (+1.88197017, +0.917561412), (+1.82258368, +0.489262044), (+1.85608816, +0.253628910), (+1.56197262, +0.827741027E-1), (+1.71611357, +0.446853638E-1), (+1.76329231, +0.890237510), (+1.58321404, +0.310599327), (+1.80335307, +0.472952962), (+1.84343314, +0.636590481), (+1.52736831, +0.954301476), (+1.42152762, +0.110543847), (+1.49144721, +0.227808177), (+1.11991906, +0.709300458), (+1.67311215, +0.437229812), (+1.87482476, +0.125167668), (+1.63971996, +0.125821233), (+1.60573339, +0.655309558E-1), (+1.21830940, +0.899906695), (+1.06381822, +0.631103039), (+1.86090899, +0.896308959), (+1.73439884, +0.695717335), (+1.31153870, +0.720280051)

109

110adat = getFFTI(getFFTF(data))

111adat

112(+1.90754688, +0.197785616), (+1.06743312, +0.334749758), (+1.28625059, +0.936473489), (+1.98161101, +0.492160439), (+1.07392967, +0.619653165), (+1.06528902, +0.226938367), (+1.60472703, +0.106946632), (+1.91491187, +0.796519041), (+1.49405742, +0.766052961), (+1.61335289, +0.939331174), (+1.90252864, +0.200616479), (+1.29237282, +0.920159221), (+1.88335288, +0.931280553), (+1.24889839, +0.249292497E-1), (+1.36809814, +0.739584386), (+1.67279363, +0.686784267), (+1.27760911, +0.912350774), (+1.45427632, +0.255406827), (+1.33492374, +0.818078443E-1), (+1.18685436, +0.283986837), (+1.86908269, +0.679525614), (+1.15136695, +0.266254485), (+1.51165044, +0.238967046), (+1.18975484, +0.873369098), (+1.85102916, +0.643491089), (+1.74493659, +0.940806389), (+1.78597200, +0.880932629), (+1.40753889, +0.594375618E-1), (+1.20736289, +0.843509018), (+1.77328527, +0.891658425), (+1.75611937, +0.738468707), (+1.08808565, +0.485687524), (+1.07662892, +0.271940790E-1), (+1.05924654, +0.756351531), (+1.25838566, +0.834134221), (+1.52758253, +0.893954694), (+1.48899841, +0.119615667), (+1.31489968, +0.300551772), (+1.25762498, +0.709557295), (+1.75706685, +0.623656631), (+1.52010334, +0.358002514), (+1.16215384, +0.579897046), (+1.16124713, +0.861713767), (+1.51520443, +0.634763777), (+1.98708856, +0.961570024), (+1.15792465, +0.527157605), (+1.50816405, +0.335802376), (+1.43511665, +0.512251914), (+1.10467851, +0.246484384), (+1.92431748, +0.396701600E-2), (+1.35502124, +0.117443986), (+1.87012351, +0.964933336), (+1.26766443, +0.546918988), (+1.40892041, +0.159642026), (+1.03763843, +0.380576372), (+1.41501856, +0.258490920), (+1.63471508, +0.267623305), (+1.02442813, +0.706180871), (+1.16770566, +0.416351676), (+1.03245020, +0.219136029), (+1.39223373, +0.615685403), (+1.22109008, +0.540587492E-2), (+1.33799231, +0.986891031), (+1.88197041, +0.917561352), (+1.82258344, +0.489261955), (+1.85608828, +0.253628671), (+1.56197226, +0.827737972E-1), (+1.71611309, +0.446852855E-1), (+1.76329362, +0.890238166), (+1.58321381, +0.310599476), (+1.80335319, +0.472952813), (+1.84343338, +0.636590123), (+1.52736843, +0.954301357), (+1.42152798, +0.110544205), (+1.49144781, +0.227808028), (+1.11991942, +0.709300518), (+1.67311299, +0.437229961), (+1.87482560, +0.125168025), (+1.63971996, +0.125821099), (+1.60573351, +0.655310452E-1), (+1.21830904, +0.899907053), (+1.06381786, +0.631102979), (+1.86090934, +0.896308839), (+1.73439908, +0.695717275), (+1.31153822, +0.720279753)

113reltol = sqrt(epsilon(1._TKG))

114reltol

115+0.345266977E-3

116isClose(data, adat, reltol = reltol)

117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

118call setAsserted(all(isClose(data, adat, reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+44

123data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

124data

125(+1.1907083665452243, +0.27536589575078230), (+1.1896650578090864, +0.67385309031520768), (+1.7813492971931817, +0.37741245030149306), (+1.1544200111162723, +0.49383337019422957), (+1.4380334995602508, +0.82189516323919354E-1), (+1.5984622454767279, +0.81003412741918579E-1), (+1.0314432242271492, +0.68155229983320564), (+1.3609804282134030, +0.65613838287705617), (+1.1615262392028516, +0.28511524382691722), (+1.4663987357927351, +0.57832415878830601), (+1.2219953067290117, +0.23612736662132849), (+1.6449362404676653, +0.23247121119157033), (+1.3880788346739652, +0.33012567162001749), (+1.3241869377694022, +0.11604996510873578), (+1.3170357656883107, +0.84115262927284584), (+1.7160105881440431, +0.28105032256343609), (+1.5273024726326017, +0.64009389545758355), (+1.4121521827975281, +0.19007291905675516E-1), (+1.3583903725259097, +0.26341785874447521), (+1.2627194247647604, +0.94633766872102787), (+1.7636034585820628, +0.68169596738970784), (+1.9321911229207078, +0.27454522106153456), (+1.7838954355889611, +0.35388909678275826), (+1.2579661956389514, +0.69639392813127365), (+1.6092695191641169, +0.66300028759619023), (+1.3657380949136897, +0.55875330740890594), (+1.9427741590689469, +0.49267519004377514), (+1.3574430962951962, +0.78359003307938524), (+1.3568081528790357, +0.97079563367591848), (+1.0944678772449126, +0.95396761921816586), (+1.7301840317489385, +0.42982623926617958), (+1.9246165436965714, +0.14028767109200979E-1), (+1.0492748228808129, +0.77432338770559395), (+1.0996085896331356, +0.36399417568579595), (+1.5174995340630173, +0.71994639126687487), (+1.8705839791576917, +0.10039465856779262), (+1.5627637030840500, +0.97551660060526124), (+1.4168918262412653, +0.37353770314172086), (+1.5635437945954205, +0.72512323423592995), (+1.0064384941290530, +0.41227191822675147), (+1.8737072049261787, +0.94406141115000841), (+1.9143480067718541, +0.29970502019418743), (+1.1151771627876745, +0.21792522987216456E-1), (+1.2223753398043375, +0.40458680175018125)

126

127adat = getFFTI(getFFTF(data))

128adat

129(+1.1907083665452245, +0.27536589575078224), (+1.1896650578090870, +0.67385309031520790), (+1.7813492971931819, +0.37741245030149295), (+1.1544200111162721, +0.49383337019422974), (+1.4380334995602511, +0.82189516323919243E-1), (+1.5984622454767274, +0.81003412741918579E-1), (+1.0314432242271485, +0.68155229983320553), (+1.3609804282134030, +0.65613838287705628), (+1.1615262392028511, +0.28511524382691678), (+1.4663987357927359, +0.57832415878830601), (+1.2219953067290121, +0.23612736662132852), (+1.6449362404676653, +0.23247121119157024), (+1.3880788346739661, +0.33012567162001755), (+1.3241869377694024, +0.11604996510873609), (+1.3170357656883103, +0.84115262927284562), (+1.7160105881440431, +0.28105032256343593), (+1.5273024726326012, +0.64009389545758344), (+1.4121521827975276, +0.19007291905675607E-1), (+1.3583903725259097, +0.26341785874447521), (+1.2627194247647600, +0.94633766872102787), (+1.7636034585820630, +0.68169596738970817), (+1.9321911229207083, +0.27454522106153484), (+1.7838954355889611, +0.35388909678275804), (+1.2579661956389523, +0.69639392813127388), (+1.6092695191641175, +0.66300028759619034), (+1.3657380949136895, +0.55875330740890616), (+1.9427741590689465, +0.49267519004377519), (+1.3574430962951958, +0.78359003307938513), (+1.3568081528790352, +0.97079563367591837), (+1.0944678772449126, +0.95396761921816586), (+1.7301840317489379, +0.42982623926617969), (+1.9246165436965716, +0.14028767109200918E-1), (+1.0492748228808138, +0.77432338770559417), (+1.0996085896331358, +0.36399417568579578), (+1.5174995340630180, +0.71994639126687487), (+1.8705839791576917, +0.10039465856779278), (+1.5627637030840498, +0.97551660060526113), (+1.4168918262412658, +0.37353770314172091), (+1.5635437945954200, +0.72512323423592995), (+1.0064384941290521, +0.41227191822675147), (+1.8737072049261789, +0.94406141115000874), (+1.9143480067718541, +0.29970502019418738), (+1.1151771627876752, +0.21792522987216435E-1), (+1.2223753398043375, +0.40458680175018141)

130reltol = sqrt(epsilon(1._TKG))

131reltol

132+0.14901161193847656E-7

133isClose(data, adat, reltol = reltol)

134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

135call setAsserted(all(isClose(data, adat, reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+25

140data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

141data

142(+1.72400576658762886547854644036646781, +0.228739061950310850791579749904767086), (+1.12473839275234329212789994167355395, +0.831384791919659105597405456745818371), (+1.69050041842500533783165065898153852, +0.500487855223022439100978532251445848), (+1.01864079226234935683684492282463984, +0.546692973636161794828713641506735932), (+1.95968945260454795543573955706638465, +0.484073476754752834224324300284868760), (+1.75824621292493911896582564235498727, +0.275897969521039196024741620956073269), (+1.95708257703972098788219205916286629, +0.575365293316046917997300720490441558), (+1.14123883460188381860841428162594106, +0.765618211021468670694387909581207236), (+1.71365078998504140465859837654077319, +0.236884251042282712987244056499590222), (+1.99092032448320311034212624648898121, +0.519493824461396704996399059139259883), (+1.41333572689770919739045374291343340, +0.582470363434772911985797321501514483), (+1.54489730173316035205859706580420214, +0.965721032745977932762289550036426148), (+1.17741006979454360721916498522157300, +0.940357086101682577956429152303647726), (+1.77345125790975095179919532514266549, +0.508829057429710055003270750569790529), (+1.52848106889806881206122311984618929, +0.740967132629478247492840701193962017), (+1.69674729017835292353833236996894064, +0.645334096591218894642354278855145297), (+1.98382500379432261814943611794034180, +0.236444444970466130765686708871086022), (+1.98501408419917202774290726317673715, +0.629796935759444603544696376618916859), (+1.95445547099123798473037115004107375, +0.105410787981090373345380557511269406), (+1.29405430343435608507970663354728054, +0.666324368124874273993115656081308096), (+1.02721675475347954756997458268217603, +0.704798046182444169390777183252952524), (+1.09739235801506715941950305376215121, +0.895576664494561420341409739941430957), (+1.79983467870985706247321866810677807, +0.699487248599564983026085330572933425), (+1.94371095224896358491290546483591476, +0.698529338868351535186966350530546116), (+1.90919526481491458683626376413093131, +0.621069777311199903272308814699998731E-2)

143

144adat = getFFTI(getFFTF(data))

145adat

146(+1.72400576658762886547854644036646781, +0.228739061950310850791579749904767038), (+1.12473839275234329212789994167355357, +0.831384791919659105597405456745818274), (+1.69050041842500533783165065898153871, +0.500487855223022439100978532251445752), (+1.01864079226234935683684492282463984, +0.546692973636161794828713641506735836), (+1.95968945260454795543573955706638427, +0.484073476754752834224324300284868615), (+1.75824621292493911896582564235498727, +0.275897969521039196024741620956073365), (+1.95708257703972098788219205916286591, +0.575365293316046917997300720490441750), (+1.14123883460188381860841428162594125, +0.765618211021468670694387909581207236), (+1.71365078998504140465859837654077339, +0.236884251042282712987244056499590198), (+1.99092032448320311034212624648898083, +0.519493824461396704996399059139259979), (+1.41333572689770919739045374291343359, +0.582470363434772911985797321501514579), (+1.54489730173316035205859706580420156, +0.965721032745977932762289550036426244), (+1.17741006979454360721916498522157319, +0.940357086101682577956429152303647822), (+1.77345125790975095179919532514266549, +0.508829057429710055003270750569790529), (+1.52848106889806881206122311984618891, +0.740967132629478247492840701193962114), (+1.69674729017835292353833236996894064, +0.645334096591218894642354278855145393), (+1.98382500379432261814943611794034142, +0.236444444970466130765686708871086167), (+1.98501408419917202774290726317673734, +0.629796935759444603544696376618916955), (+1.95445547099123798473037115004107394, +0.105410787981090373345380557511269382), (+1.29405430343435608507970663354728035, +0.666324368124874273993115656081308289), (+1.02721675475347954756997458268217603, +0.704798046182444169390777183252952524), (+1.09739235801506715941950305376215102, +0.895576664494561420341409739941431150), (+1.79983467870985706247321866810677846, +0.699487248599564983026085330572933425), (+1.94371095224896358491290546483591476, +0.698529338868351535186966350530546020), (+1.90919526481491458683626376413093092, +0.621069777311199903272308814700003396E-2)

147reltol = sqrt(epsilon(1._TKG))

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, adat, reltol = reltol)

151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

152call setAsserted(all(isClose(data, adat, reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+73

157data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

158data

159+1.28042483, +1.31772006, +1.38438714, +1.39223671, +1.55105352, +1.00228667, +1.85127354, +1.42715025, +1.97045803, +1.66653824, +1.53956628, +1.88730955, +1.30228686, +1.55718613, +1.44873476, +1.64963031, +1.72644675, +1.43312526, +1.60929573, +1.47210860, +1.07348514, +1.32949722, +1.28905773, +1.07985401, +1.41625953, +1.04061437, +1.73412824, +1.35474324, +1.31438398, +1.55278218, +1.58022308, +1.67038608, +1.71829605, +1.22154260, +1.90642285, +1.92929220, +1.76307309, +1.20588887, +1.96335912, +1.13339067, +1.73233175, +1.06288350, +1.62424123, +1.06715131, +1.40773964, +1.72072601, +1.10518563, +1.14139235, +1.38753784, +1.26839674, +1.22954690, +1.49627304, +1.33652484, +1.48841083, +1.83262682, +1.42217076, +1.57934737, +1.14594817, +1.45221591, +1.67003584, +1.12705612, +1.66638196, +1.14046633, +1.25111532, +1.24641371, +1.87921739, +1.73247194, +1.15914941, +1.81790137, +1.56100512, +1.52358055, +1.12998819, +1.92510271

160

161adat = getFFTI(getFFTF(data))

162adat

163+1.28042316, +1.31771886, +1.38438654, +1.39223576, +1.55105448, +1.00228357, +1.85127532, +1.42714822, +1.97045898, +1.66653776, +1.53956497, +1.88731170, +1.30228460, +1.55718660, +1.44873357, +1.64963031, +1.72644925, +1.43312275, +1.60929716, +1.47210979, +1.07348108, +1.32949793, +1.28905821, +1.07985020, +1.41626334, +1.04060757, +1.73413563, +1.35474133, +1.31438136, +1.55278444, +1.58022368, +1.67038703, +1.71829927, +1.22153294, +1.90643036, +1.92929614, +1.76307905, +1.20588863, +1.96336722, +1.13338375, +1.73233914, +1.06287491, +1.62424743, +1.06714523, +1.40773797, +1.72073448, +1.10518050, +1.14139128, +1.38753855, +1.26839685, +1.22954500, +1.49627507, +1.33652270, +1.48841047, +1.83262992, +1.42216861, +1.57934904, +1.14594483, +1.45221603, +1.67003834, +1.12705195, +1.66638517, +1.14046431, +1.25111508, +1.24641168, +1.87921894, +1.73247218, +1.15914750, +1.81790185, +1.56100464, +1.52358019, +1.12998700, +1.92510211

164reltol = sqrt(epsilon(1._TKG))

165reltol

166+0.345266977E-3

167isClose(data, adat, reltol = reltol)

168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

169call setAsserted(all(isClose(data, adat, reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+6

174data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

175data

176+1.1093493501312759, +1.4474599438290578, +1.7422907240161321, +1.7311347325571442, +1.2907497847176126, +1.0534628376848976

177

178adat = getFFTI(getFFTF(data))

179adat

180+1.1093493501312761, +1.4474599438290578, +1.7422907240161323, +1.7311347325571440, +1.2907497847176128, +1.0534628376848976

181reltol = sqrt(epsilon(1._TKG))

182reltol

183+0.14901161193847656E-7

184isClose(data, adat, reltol = reltol)

185T, T, T, T, T, T

186call setAsserted(all(isClose(data, adat, reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+67

191data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

192data

193+1.09547539185569127089602484259413585, +1.22655161358327831856405919502894552, +1.15395309383652525722751752769455835, +1.90330557593273359051371423818445071, +1.96618927679384916275130724120538913, +1.80702945985916700664027874769097313, +1.72689887585346731009927184182799151, +1.46355935377331252583347281571626867, +1.11262014219690298295573216572704539, +1.51147561691874704526698582487720620, +1.11437057580076386413320056738125182, +1.88279691642510503553112919630365197, +1.62646332828607077465477375600183998, +1.98399066975573298783264648763330718, +1.75910001184908122197613585591030374, +1.45472707666259683556651213936808916, +1.65813964355027359445537233975401040, +1.90063134650712202333271118706015573, +1.70335146900962534491931231911395386, +1.38820688889982551610524274621161754, +1.51623397052355370060629797029469786, +1.59894148573981872153916382536993076, +1.63618039997950545765460851122641132, +1.93109164489296431953904224693649734, +1.99553807950385588771423860576216495, +1.38000268751259466905017723494700002, +1.83664809024835192900457648215249631, +1.25350160503007571116377847709873919, +1.31404262886323655967358525330243820, +1.42461257123387086592652027403199991, +1.56545298409926151274665157392284889, +1.17433783985369873900496981280389781, +1.18403176195049609575548112300888680, +1.72627142024189101536825953074231938, +1.45865377039715674485156170312138106, +1.52177116992484477938864081185998453, +1.20696660323662054692847167418102842, +1.62911090877998906997154523787807233, +1.42994441687871634657742170026824840, +1.42462360715454636434124112443821780, +1.39397466058633033607394354574453310, +1.22378200162750629132199509567244137, +1.28701238386385484691633277649089118, +1.32893438198823734761858098716819864, +1.10664267158626644501109453188356884, +1.81379974165690176438549618794762396, +1.27215672213690500994770072485195223, +1.86111243514919194194247356235237848, +1.49943280021906127266950163063795372, +1.00907043472719268796555596970745357, +1.27925444017051697828128994640199499, +1.12286258919993513035592645173685982, +1.87849090203281439975763286372344573, +1.12834503045697604500716725733771851, +1.33248306969137847166925208186002856, +1.40107078928551919881668132692572320, +1.86447505904220096635025535297350515, +1.11908470272167018649034343214330766, +1.38742477575718838659138033175676640, +1.56063182597505199950316404037335972, +1.05409388390728129200830334327731710, +1.49717957654383648905789320497625389, +1.17895064158958977534900140700520966, +1.45408539119386837017306673105684326, +1.67813117038139810469135573908308564, +1.00298639988598150956658148354176852, +1.33574074115516535137731381867208681

194

195adat = getFFTI(getFFTF(data))

196adat

197+1.09547539185569127089602484259413623, +1.22655161358327831856405919502894495, +1.15395309383652525722751752769455835, +1.90330557593273359051371423818445090, +1.96618927679384916275130724120539029, +1.80702945985916700664027874769097313, +1.72689887585346731009927184182799190, +1.46355935377331252583347281571626867, +1.11262014219690298295573216572704327, +1.51147561691874704526698582487720659, +1.11437057580076386413320056738124835, +1.88279691642510503553112919630365351, +1.62646332828607077465477375600183921, +1.98399066975573298783264648763330911, +1.75910001184908122197613585591030566, +1.45472707666259683556651213936808608, +1.65813964355027359445537233975401136, +1.90063134650712202333271118706015804, +1.70335146900962534491931231911395406, +1.38820688889982551610524274621161427, +1.51623397052355370060629797029469747, +1.59894148573981872153916382536993038, +1.63618039997950545765460851122641093, +1.93109164489296431953904224693649907, +1.99553807950385588771423860576216938, +1.38000268751259466905017723494699347, +1.83664809024835192900457648215250209, +1.25350160503007571116377847709873341, +1.31404262886323655967358525330243820, +1.42461257123387086592652027403200222, +1.56545298409926151274665157392285467, +1.17433783985369873900496981280389434, +1.18403176195049609575548112300888603, +1.72627142024189101536825953074231456, +1.45865377039715674485156170312136892, +1.52177116992484477938864081185998877, +1.20696660323662054692847167418102341, +1.62911090877998906997154523787807869, +1.42994441687871634657742170026824936, +1.42462360715454636434124112443821972, +1.39397466058633033607394354574453271, +1.22378200162750629132199509567244003, +1.28701238386385484691633277649088983, +1.32893438198823734761858098716819864, +1.10664267158626644501109453188356383, +1.81379974165690176438549618794762935, +1.27215672213690500994770072485194722, +1.86111243514919194194247356235238541, +1.49943280021906127266950163063795392, +1.00907043472719268796555596970745049, +1.27925444017051697828128994640199461, +1.12286258919993513035592645173685770, +1.87849090203281439975763286372345189, +1.12834503045697604500716725733771562, +1.33248306969137847166925208186002856, +1.40107078928551919881668132692572224, +1.86447505904220096635025535297350804, +1.11908470272167018649034343214330381, +1.38742477575718838659138033175676678, +1.56063182597505199950316404037336030, +1.05409388390728129200830334327731537, +1.49717957654383648905789320497625524, +1.17895064158958977534900140700520811, +1.45408539119386837017306673105684384, +1.67813117038139810469135573908308583, +1.00298639988598150956658148354176852, +1.33574074115516535137731381867208643

198reltol = sqrt(epsilon(1._TKG))

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, adat, reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

203call setAsserted(all(isClose(data, adat, reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+51

208data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

209data

210(+1.25058091, +0.598872900E-1), (+1.87094235, +0.161352932), (+1.27990460, +0.630284548), (+1.63953876, +0.789676487), (+1.02930677, +0.769742191), (+1.01132512, +0.271769881), (+1.68851328, +0.476149321), (+1.83413339, +0.221066177), (+1.29903591, +0.613647699E-2), (+1.19686317, +0.883041680), (+1.60825253, +0.168976963), (+1.44223237, +0.386801183), (+1.35984421, +0.860736847), (+1.00118899, +0.190663218), (+1.70364761, +0.363436878), (+1.72874486, +0.315229058), (+1.40504169, +0.608599186E-1), (+1.73030770, +0.247345090), (+1.78856945, +0.781784952), (+1.21774149, +0.942804635), (+1.66321278, +0.295640707), (+1.54761243, +0.564486921), (+1.05185294, +0.721315145E-1), (+1.94646645, +0.268576503), (+1.16611481, +0.290853024), (+1.88346899, +0.391726255), (+1.53255796, +0.926989436), (+1.00578868, +0.117217839), (+1.39520812, +0.444984078), (+1.60425663, +0.913160086), (+1.11206651, +0.196136236), (+1.78893685, +0.517560184), (+1.62642574, +0.976241827), (+1.52310443, +0.812488198), (+1.94795501, +0.590171397), (+1.73282957, +0.908053339), (+1.77313340, +0.278140903), (+1.30192876, +0.754897594), (+1.02192438, +0.538401365), (+1.88346386, +0.991742790), (+1.56276429, +0.777353287), (+1.88917685, +0.972819686), (+1.54092538, +0.588945806), (+1.94708633, +0.816682875), (+1.71889162, +0.228346586E-1), (+1.14753091, +0.110427082), (+1.57377565, +0.728115082), (+1.69596326, +0.735055506), (+1.31422698, +0.111948431), (+1.49596894, +0.524063528), (+1.73160028, +0.779629886)

211

212adat = getFFTI(getFFTF(data))

213adat

214(+1.25058150, +0.598876178E-1), (+1.87094247, +0.161352783), (+1.27990472, +0.630284548), (+1.63953853, +0.789676309), (+1.02930689, +0.769742370), (+1.01132524, +0.271769792), (+1.68851340, +0.476149470), (+1.83413363, +0.221066162), (+1.29903626, +0.613668887E-2), (+1.19686353, +0.883041799), (+1.60825264, +0.168977037), (+1.44223273, +0.386801332), (+1.35984421, +0.860736787), (+1.00118887, +0.190663248), (+1.70364785, +0.363436759), (+1.72874486, +0.315229058), (+1.40504122, +0.608599074E-1), (+1.73030829, +0.247345358), (+1.78856933, +0.781785011), (+1.21774137, +0.942804635), (+1.66321242, +0.295640677), (+1.54761267, +0.564487100), (+1.05185282, +0.721314773E-1), (+1.94646680, +0.268576771), (+1.16611505, +0.290853143), (+1.88346934, +0.391726404), (+1.53255832, +0.926989615), (+1.00578892, +0.117217869), (+1.39520812, +0.444984138), (+1.60425663, +0.913159788), (+1.11206675, +0.196136311), (+1.78893673, +0.517560244), (+1.62642574, +0.976241887), (+1.52310407, +0.812488198), (+1.94795561, +0.590171635), (+1.73282933, +0.908053398), (+1.77313328, +0.278140843), (+1.30192852, +0.754897416), (+1.02192438, +0.538401544), (+1.88346362, +0.991742611), (+1.56276405, +0.777353346), (+1.88917744, +0.972819865), (+1.54092598, +0.588946104), (+1.94708633, +0.816683114), (+1.71889222, +0.228347220E-1), (+1.14753103, +0.110427260), (+1.57377553, +0.728115201), (+1.69596350, +0.735055387), (+1.31422687, +0.111948393), (+1.49596870, +0.524063706), (+1.73160017, +0.779629707)

215reltol = sqrt(epsilon(1._TKG))

216reltol

217+0.345266977E-3

218isClose(data, adat, reltol = reltol)

219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

220call setAsserted(all(isClose(data, adat, reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+42

225data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

226data

227(+1.2933070258256962, +0.64498724115875350), (+1.9484539673718664, +0.44416247246320983), (+1.8595782934513019, +0.62858605837347625), (+1.4068011400747680, +0.62931572930993718), (+1.7037596896379232, +0.91867476566731443), (+1.4504109119181061, +0.10736770009071472), (+1.8651916149615351, +0.61803277429739256), (+1.5121301426885800, +0.69159688851412571), (+1.8839608219183024, +0.82470909589235375), (+1.3604296748105529, +0.89003604825281246), (+1.9465102104730314, +0.55766798907172810), (+1.1147381920671400, +0.31107146885643477), (+1.0553016509117157, +0.87587499942631686), (+1.7995085539847022, +0.54131603485085278), (+1.2007744758762819, +0.49867327887950708), (+1.9110822450092892, +0.51936101541806801), (+1.7385468219283764, +0.60085308117483271), (+1.0377759800924671, +0.78592744918348245), (+1.2835070538940905, +0.80090102521987894E-1), (+1.7000990909047418, +0.85761605006115071E-1), (+1.7862363680501665, +0.40874664172884512), (+1.8115040769434021, +0.97400671166984265), (+1.4045581770287896, +0.31697428608132283), (+1.6632551614941358, +0.35178314282401868), (+1.6072151150467986, +0.88851979340129406), (+1.2953637294882081, +0.76869225977325806), (+1.8298086758427989, +0.97790505678538231), (+1.4879092911421634, +0.92808880278992967), (+1.9687822463266320, +0.59401482182217724), (+1.2716046521643785, +0.89789247513956782E-1), (+1.9443905056093027, +0.31106918358003977), (+1.7090384621681474, +0.49625849423672408), (+1.1260344918106111, +0.56495380347934077), (+1.1531644089642321, +0.41390485812164646), (+1.3131130451306663, +0.72236514916866335), (+1.6884949839289489, +0.64294936840396988), (+1.6057908771383240, +0.72592596406698606), (+1.5592439317226958, +0.38994335545101166), (+1.6549715125356963, +0.10346816013832350), (+1.4266635799224623, +0.29089238660260286), (+1.6005284361877261, +0.41895304449554538), (+1.2840515610706493, +0.53695760053124042)

228

229adat = getFFTI(getFFTF(data))

230adat

231(+1.2933070258256962, +0.64498724115875339), (+1.9484539673718668, +0.44416247246320989), (+1.8595782934513025, +0.62858605837347636), (+1.4068011400747675, +0.62931572930993696), (+1.7037596896379228, +0.91867476566731432), (+1.4504109119181066, +0.10736770009071474), (+1.8651916149615351, +0.61803277429739245), (+1.5121301426885800, +0.69159688851412582), (+1.8839608219183022, +0.82470909589235386), (+1.3604296748105531, +0.89003604825281235), (+1.9465102104730314, +0.55766798907172799), (+1.1147381920671393, +0.31107146885643439), (+1.0553016509117163, +0.87587499942631697), (+1.7995085539847024, +0.54131603485085289), (+1.2007744758762819, +0.49867327887950719), (+1.9110822450092892, +0.51936101541806801), (+1.7385468219283771, +0.60085308117483271), (+1.0377759800924671, +0.78592744918348212), (+1.2835070538940900, +0.80090102521987810E-1), (+1.7000990909047420, +0.85761605006114960E-1), (+1.7862363680501663, +0.40874664172884506), (+1.8115040769434025, +0.97400671166984254), (+1.4045581770287894, +0.31697428608132283), (+1.6632551614941362, +0.35178314282401890), (+1.6072151150467984, +0.88851979340129394), (+1.2953637294882074, +0.76869225977325795), (+1.8298086758427994, +0.97790505678538231), (+1.4879092911421634, +0.92808880278992956), (+1.9687822463266320, +0.59401482182217724), (+1.2716046521643785, +0.89789247513956699E-1), (+1.9443905056093029, +0.31106918358003965), (+1.7090384621681471, +0.49625849423672380), (+1.1260344918106104, +0.56495380347934054), (+1.1531644089642326, +0.41390485812164651), (+1.3131130451306663, +0.72236514916866346), (+1.6884949839289496, +0.64294936840396955), (+1.6057908771383242, +0.72592596406698606), (+1.5592439317226963, +0.38994335545101166), (+1.6549715125356961, +0.10346816013832338), (+1.4266635799224616, +0.29089238660260286), (+1.6005284361877266, +0.41895304449554555), (+1.2840515610706491, +0.53695760053124042)

232reltol = sqrt(epsilon(1._TKG))

233reltol

234+0.14901161193847656E-7

235isClose(data, adat, reltol = reltol)

236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

237call setAsserted(all(isClose(data, adat, reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+14

242data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

243data

244(+1.88617497392951788536107517090557416, +0.415721054620508787561735923722474677), (+1.57727352844970275226665757944208646, +0.872595207193847205174450776594440455), (+1.09484082076140762125376635314082998, +0.867841783713151611720983107322248982), (+1.95270364151272679981922021271271809, +0.684709961064523445707000555858036433), (+1.45049181638561951894530339328011736, +0.321289625778935777230509194700267579), (+1.57884397906720437747179581838889243, +0.965274476388818712655231612472580211), (+1.01144669397736630236035952115329160, +0.537332471667013049315995227367456710), (+1.07973035682589104444805628241619287, +0.467288245071976946393660922894021825), (+1.71486969281186839618046957983307690, +0.756772014524345836485629781648562596), (+1.27185291584457245260512252141124797, +0.808208834125799664492612490804070675), (+1.56932281852271408786901023790281156, +0.818408559650587554418976867062728044), (+1.44313780811248816432615196917054096, +0.398631426678306889834491645158312878), (+1.01301218169802795064938499050405712, +0.471577503409267827561912246610199124), (+1.74544426498245166580593124879088181, +0.227594601717810578733129182076668354)

245

246adat = getFFTI(getFFTF(data))

247adat

248(+1.88617497392951788536107517090557397, +0.415721054620508787561735923722474629), (+1.57727352844970275226665757944208646, +0.872595207193847205174450776594440263), (+1.09484082076140762125376635314082998, +0.867841783713151611720983107322249078), (+1.95270364151272679981922021271271790, +0.684709961064523445707000555858036337), (+1.45049181638561951894530339328011717, +0.321289625778935777230509194700267579), (+1.57884397906720437747179581838889243, +0.965274476388818712655231612472580211), (+1.01144669397736630236035952115329160, +0.537332471667013049315995227367456710), (+1.07973035682589104444805628241619267, +0.467288245071976946393660922894021777), (+1.71486969281186839618046957983307690, +0.756772014524345836485629781648562500), (+1.27185291584457245260512252141124777, +0.808208834125799664492612490804070771), (+1.56932281852271408786901023790281137, +0.818408559650587554418976867062728237), (+1.44313780811248816432615196917054096, +0.398631426678306889834491645158312734), (+1.01301218169802795064938499050405712, +0.471577503409267827561912246610199172), (+1.74544426498245166580593124879088162, +0.227594601717810578733129182076668474)

249reltol = sqrt(epsilon(1._TKG))

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, adat, reltol = reltol)

253T, T, T, T, T, T, T, T, T, T, T, T, T, T

254call setAsserted(all(isClose(data, adat, reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+91

259data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

260data

261+1.30754995, +1.53561926, +1.30654788, +1.62940240, +1.35694444, +1.17518067, +1.93161297, +1.47590375, +1.99155426, +1.55610847, +1.16601133, +1.91520905, +1.59002566, +1.59504879, +1.76567793, +1.33502674, +1.22841525, +1.43190026, +1.72557974, +1.53679442, +1.40311885, +1.06629848, +1.63270080, +1.03650606, +1.91865206, +1.11190176, +1.57704210, +1.54181504, +1.62841010, +1.99627197, +1.85748875, +1.72993517, +1.12216568, +1.64505744, +1.41494226, +1.76207626, +1.92402613, +1.20619059, +1.95152521, +1.96271801, +1.66475785, +1.93923235, +1.09798813, +1.65860605, +1.30696511, +1.86428308, +1.59103119, +1.23512459, +1.25228715, +1.38841391, +1.69686794, +1.65436637, +1.12715697, +1.99599552, +1.53154731, +1.56973279, +1.76063597, +1.69441843, +1.93394017, +1.70864785, +1.41266513, +1.37288785, +1.90550542, +1.90552557, +1.72128427, +1.76558089, +1.17190957, +1.52182508, +1.25697708, +1.89829588, +1.56384039, +1.13215542, +1.26624393, +1.65246868, +1.19839048, +1.10393977, +1.61801600, +1.24132943, +1.36549163, +1.65775466, +1.35296023, +1.27594233, +1.63326883, +1.69350517, +1.68974328, +1.20112836, +1.92985320, +1.59750891, +1.40328014, +1.10682511, +1.30584908

262

263adat = getFFTI(getFFTF(data))

264adat

265+1.30755019, +1.53561997, +1.30654824, +1.62940228, +1.35694456, +1.17518103, +1.93161333, +1.47590387, +1.99155438, +1.55610847, +1.16601145, +1.91520846, +1.59002554, +1.59504890, +1.76567817, +1.33502734, +1.22841561, +1.43190062, +1.72557998, +1.53679466, +1.40311885, +1.06629837, +1.63270068, +1.03650570, +1.91865170, +1.11190140, +1.57704198, +1.54181468, +1.62841034, +1.99627256, +1.85748899, +1.72993505, +1.12216604, +1.64505792, +1.41494274, +1.76207614, +1.92402601, +1.20619035, +1.95152509, +1.96271729, +1.66475785, +1.93923223, +1.09798884, +1.65860724, +1.30696607, +1.86428332, +1.59103251, +1.23512566, +1.25228822, +1.38841438, +1.69686890, +1.65436721, +1.12715805, +1.99599600, +1.53154814, +1.56973338, +1.76063573, +1.69441843, +1.93393970, +1.70864737, +1.41266477, +1.37288809, +1.90550518, +1.90552568, +1.72128463, +1.76558113, +1.17190969, +1.52182519, +1.25697768, +1.89829624, +1.56384051, +1.13215542, +1.26624358, +1.65246832, +1.19839025, +1.10393977, +1.61801577, +1.24132955, +1.36549222, +1.65775502, +1.35296047, +1.27594244, +1.63326907, +1.69350517, +1.68974328, +1.20112860, +1.92985320, +1.59750891, +1.40327966, +1.10682511, +1.30584919

266reltol = sqrt(epsilon(1._TKG))

267reltol

268+0.345266977E-3

269isClose(data, adat, reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

271call setAsserted(all(isClose(data, adat, reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+54

276data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

277data

278+1.2017662404212601, +1.1622398822014617, +1.8755989746163721, +1.0660563796072937, +1.8473189666118910, +1.8847540020589952, +1.8345667748320891, +1.9252808488810649, +1.1275932318587181, +1.0693590539926592, +1.1207956610063330, +1.2660162159238226, +1.1769889256614605, +1.1345372069978996, +1.3826869134470825, +1.6686562598596755, +1.7106138698662812, +1.4938827653251607, +1.6532531168785471, +1.7032410637831652, +1.9735207189168014, +1.5020823960746803, +1.1568722998670780, +1.2253971016512040, +1.9903920067629750, +1.8386697071571172, +1.4071862139735667, +1.9610908527293094, +1.0212700935217043, +1.6744990275352878, +1.2332156548320243, +1.6295644105487805, +1.8632433784841864, +1.9355870620041356, +1.9231511529554757, +1.8289347311047586, +1.2184529941677444, +1.8971868890177288, +1.2940700619246863, +1.0735906689237966, +1.1511456132318414, +1.0144515633805029, +1.6454301860391622, +1.0377182400375253, +1.3550642537769266, +1.7464315613465053, +1.2504940642666336, +1.1963726783022821, +1.7833735690580745, +1.3932462174762077, +1.9752341830162190, +1.4152456603176133, +1.6542028794401586, +1.7365636775585456

279

280adat = getFFTI(getFFTF(data))

281adat

282+1.2017662404212601, +1.1622398822014619, +1.8755989746163724, +1.0660563796072937, +1.8473189666118912, +1.8847540020589952, +1.8345667748320884, +1.9252808488810649, +1.1275932318587181, +1.0693590539926594, +1.1207956610063332, +1.2660162159238229, +1.1769889256614603, +1.1345372069978998, +1.3826869134470827, +1.6686562598596755, +1.7106138698662809, +1.4938827653251610, +1.6532531168785469, +1.7032410637831654, +1.9735207189168016, +1.5020823960746801, +1.1568722998670784, +1.2253971016512042, +1.9903920067629741, +1.8386697071571174, +1.4071862139735667, +1.9610908527293094, +1.0212700935217045, +1.6744990275352880, +1.2332156548320243, +1.6295644105487810, +1.8632433784841862, +1.9355870620041356, +1.9231511529554755, +1.8289347311047586, +1.2184529941677444, +1.8971868890177288, +1.2940700619246863, +1.0735906689237964, +1.1511456132318418, +1.0144515633805031, +1.6454301860391616, +1.0377182400375258, +1.3550642537769269, +1.7464315613465051, +1.2504940642666340, +1.1963726783022823, +1.7833735690580741, +1.3932462174762079, +1.9752341830162188, +1.4152456603176133, +1.6542028794401584, +1.7365636775585453

283reltol = sqrt(epsilon(1._TKG))

284reltol

285+0.14901161193847656E-7

286isClose(data, adat, reltol = reltol)

287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

288call setAsserted(all(isClose(data, adat, reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+17

293data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

294data

295+1.14529884298524187280674235126139708, +1.42640665733609547134847548792903665, +1.55704342965287620231911408806464943, +1.28087407903085099221293068531695732, +1.03961451126032905902706723124061986, +1.95393428060249634670419807982252828, +1.99615956781748387773813086579955768, +1.69964903376761422612550310124570293, +1.88239138584092887991390335299612834, +1.57288196088432782245119228014315301, +1.90518110593133196732446876658848275, +1.50113075784682093258943511125539255, +1.28331386230784226654706556877585005, +1.42654758734127119544456258987620976, +1.14820952258313181449825247604264757, +1.05644560798757645362284085004550277, +1.16581829280924106858786011462084321

296

297adat = getFFTI(getFFTF(data))

298adat

299+1.14529884298524187280674235126139746, +1.42640665733609547134847548792903684, +1.55704342965287620231911408806464943, +1.28087407903085099221293068531695674, +1.03961451126032905902706723124062043, +1.95393428060249634670419807982252712, +1.99615956781748387773813086579955749, +1.69964903376761422612550310124570177, +1.88239138584092887991390335299612988, +1.57288196088432782245119228014315570, +1.90518110593133196732446876658848083, +1.50113075784682093258943511125539294, +1.28331386230784226654706556877584947, +1.42654758734127119544456258987621033, +1.14820952258313181449825247604264700, +1.05644560798757645362284085004550315, +1.16581829280924106858786011462084340

300reltol = sqrt(epsilon(1._TKG))

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, adat, reltol = reltol)

304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

305call setAsserted(all(isClose(data, adat, reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+19

310data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

311data

312(+1.15366602, +0.266791701), (+1.05694532, +0.262463808), (+1.70834088, +0.672685087), (+1.71325326, +0.502568960), (+1.10429513, +0.439020157), (+1.62131286, +0.242084622), (+1.92014813, +0.226874471), (+1.01135111, +0.400025010), (+1.83202052, +0.222945929), (+1.43592143, +0.852777898), (+1.95843649, +0.681461215), (+1.99618983, +0.272854090), (+1.97266757, +0.722119987), (+1.07401848, +0.946957052), (+1.97596502, +0.673508644E-1), (+1.94270706, +0.306811571), (+1.94104183, +0.385250986), (+1.81817150, +0.971467197), (+1.02880526, +0.434396505)

313

314adat = getFFTI(getFFTF(data))

315adat

316(+1.15366590, +0.266791582), (+1.05694544, +0.262463868), (+1.70834076, +0.672685087), (+1.71325362, +0.502569020), (+1.10429513, +0.439020157), (+1.62131310, +0.242084637), (+1.92014802, +0.226874486), (+1.01135099, +0.400024921), (+1.83202040, +0.222945765), (+1.43592179, +0.852777779), (+1.95843685, +0.681461215), (+1.99618971, +0.272853941), (+1.97266734, +0.722119868), (+1.07401860, +0.946956933), (+1.97596526, +0.673508123E-1), (+1.94270730, +0.306811571), (+1.94104207, +0.385251015), (+1.81817150, +0.971467078), (+1.02880538, +0.434396535)

317reltol = sqrt(epsilon(1._TKG))

318reltol

319+0.345266977E-3

320isClose(data, adat, reltol = reltol)

321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

322call setAsserted(all(isClose(data, adat, reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+41

327data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

328data

329(+1.1991459096689385, +0.90011744337493416), (+1.4038636862420382, +0.36093478396388201), (+1.1800708299381226, +0.80199582003850645), (+1.4069738153224378, +0.44093976788411338), (+1.0942397780508508, +0.50878669698232648), (+1.0585663934314444, +0.29286125617074277), (+1.2043726128968668, +0.98647792603855278), (+1.6451255850849384, +0.47454130993564680), (+1.0579706251599603, +0.49937492563854158E-1), (+1.6952663004128032, +0.35147495408876950), (+1.1109206370009255, +0.18734128029222208), (+1.9194316168269432, +0.50509213861825042), (+1.5526569777158914, +0.31737336937377991), (+1.8061741933916233, +0.36300455535806109), (+1.0358529058295178, +0.46229448321639999E-1), (+1.7518474860662614, +0.73315654625937920E-1), (+1.2272255577706546, +0.85944265007376974), (+1.4475056924762950, +0.29978748614276973), (+1.8390427159601637, +0.29220235257813532), (+1.4525512958725912, +0.26237232812923117), (+1.3834108370990625, +0.70841922993481909E-1), (+1.0184079695457888, +0.91859337261764284), (+1.8878596997718375, +0.61684624816677214), (+1.3685912364325128, +0.71121245362964336), (+1.0617698566208955, +0.68831435036961863), (+1.1276852302659335, +0.96480829526491596), (+1.1995202820161450, +0.12948798430264075), (+1.9656537906517726, +0.21273069679743761), (+1.2386274373835082, +0.45362675454592172), (+1.0042485109330679, +0.26296927109790802), (+1.5594203981305554, +0.90590893671237627), (+1.2799405323945932, +0.91882956773074487), (+1.3836150340535469, +0.86563941600320515), (+1.8427081022330478, +0.81524331065600553), (+1.0985719199566870, +0.80836291470826127), (+1.4783349845801761, +0.38029653823824094), (+1.5279844822141575, +0.96788791923867290), (+1.3139962150866973, +0.87765813543079574), (+1.6264049686171553, +0.37563600020111698), (+1.3643483965205738, +0.62940037441975405E-1), (+1.7535725876339736, +0.23456975801734747)

330

331adat = getFFTI(getFFTF(data))

332adat

333(+1.1991459096689394, +0.90011744337493482), (+1.4038636862420379, +0.36093478396388223), (+1.1800708299381222, +0.80199582003850645), (+1.4069738153224385, +0.44093976788411349), (+1.0942397780508508, +0.50878669698232637), (+1.0585663934314447, +0.29286125617074282), (+1.2043726128968664, +0.98647792603855289), (+1.6451255850849387, +0.47454130993564703), (+1.0579706251599605, +0.49937492563853970E-1), (+1.6952663004128030, +0.35147495408876922), (+1.1109206370009255, +0.18734128029222202), (+1.9194316168269427, +0.50509213861825042), (+1.5526569777158914, +0.31737336937377997), (+1.8061741933916236, +0.36300455535806125), (+1.0358529058295172, +0.46229448321639742E-1), (+1.7518474860662614, +0.73315654625937809E-1), (+1.2272255577706543, +0.85944265007376996), (+1.4475056924762957, +0.29978748614276990), (+1.8390427159601639, +0.29220235257813520), (+1.4525512958725915, +0.26237232812923111), (+1.3834108370990632, +0.70841922993481937E-1), (+1.0184079695457899, +0.91859337261764251), (+1.8878596997718375, +0.61684624816677192), (+1.3685912364325126, +0.71121245362964347), (+1.0617698566208960, +0.68831435036961863), (+1.1276852302659333, +0.96480829526491607), (+1.1995202820161448, +0.12948798430264069), (+1.9656537906517717, +0.21273069679743742), (+1.2386274373835087, +0.45362675454592172), (+1.0042485109330681, +0.26296927109790819), (+1.5594203981305548, +0.90590893671237638), (+1.2799405323945927, +0.91882956773074498), (+1.3836150340535469, +0.86563941600320471), (+1.8427081022330476, +0.81524331065600564), (+1.0985719199566870, +0.80836291470826149), (+1.4783349845801754, +0.38029653823824106), (+1.5279844822141577, +0.96788791923867290), (+1.3139962150866971, +0.87765813543079585), (+1.6264049686171560, +0.37563600020111709), (+1.3643483965205734, +0.62940037441975447E-1), (+1.7535725876339732, +0.23456975801734761)

334reltol = sqrt(epsilon(1._TKG))

335reltol

336+0.14901161193847656E-7

337isClose(data, adat, reltol = reltol)

338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

339call setAsserted(all(isClose(data, adat, reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+73

344data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

345data

346(+1.25143769755908762873154060116197093, +0.294742611517534959799153669908173459), (+1.56411377546006083404237370233034312, +0.374930129049298779721716998218208234), (+1.51167663096838335312178417175250378, +0.535595318337075536259053792254405598), (+1.71428832016377623149673321503147371, +0.974689394265930624182058548097346691), (+1.00570130218364892723104168507431265, +0.380060866833532913368657818270157890), (+1.90453730760982798014895321858202425, +0.880478613527231783904193352217664298), (+1.11935496558411262409891583084060880, +0.815047910496707095798853433927488663), (+1.83695170946144153133048261859315369, +0.297172402225946442942757811635530340E-1), (+1.07737191364801293554450575189270043, +0.465508529534015506687042202144938148), (+1.67053349399810472378425656956881452, +0.949001971914867471757970444994926337), (+1.48261917325111030356039667754283273, +0.820780099094454635769811611548129319), (+1.68442197278142411320967974068099971, +0.362785265674467680605038438045481314), (+1.12330923725913584586914595388479108, +0.769140198899083608029472547797918119), (+1.50406836880453666027887397224691689, +0.795739058205297847919076472203022637), (+1.13925460856348045686091855128125474, +0.851743755192135522386527927100524785), (+1.82898278334152954642919190578380136, +0.285232861718516896203041073707522479), (+1.30935193225612171085147545525956620, +0.457726214024285702934301801102568843E-1), (+1.45554362421439028895088709620687515, +0.581834072481369247326803744135054913), (+1.96035680683327517490561180426616745, +0.659894708038623417599617944804474175), (+1.36463668712127816997769792340262574, +0.507746959032923379731560961964334620), (+1.12861581300590292871115632876970887, +0.644020137565432549651935719621249894E-1), (+1.97890233725698230342308887519058171, +0.876309571921967150638296080854215990), (+1.10254013476518384336637543219051400, +0.640062259702119813453026290771048134), (+1.17113973605906482403266725037672782, +0.239519497395485660222596232334802287), (+1.32351642825165589067503728634330647, +0.360276670323021244700550727031644213), (+1.78048326512010430653038547622935231, +0.927549594560186740123441073790176616), (+1.59500356345560734235084405914618142, +0.571176997841565647365496294382992479), (+1.67963961190608704684535616802385174, +0.475692767304584955061702491293516474), (+1.87213015893555524262740634401068499, +0.529603948021607315450817293885467292), (+1.30628873788156099448516973307979367, +0.825087804448406813061044636387428962), (+1.91282460428977724619346998135022616, +0.473416137695170794654630628095111063), (+1.57670862027260715395028565159568724, +0.264818310996604310564909345525458172), (+1.10441218333411557642121064470258668, +0.117144245647427709003266944859069995), (+1.12236243942654586022072922836886995, +0.817326004711625721959468245770757268), (+1.88123722889762310697523657707646025, +0.233858794791757375886600171625049012), (+1.38770132898335569337698657177096325, +0.518079538817902108821456842465922729), (+1.91622283804977118080970790301234038, +0.659345078764488612817623589339879515E-1), (+1.67631710712688241626752313798355873, +0.446269868513360951081691882178869406), (+1.84710947003864024815891061493979548, +0.139324043995654598365821316796337569E-1), (+1.36019035596185449900001252801326434, +0.451572166624509714260970891107056424), (+1.06284738133224838105170631225211669, +0.630192839206455016256310175648508848), (+1.68042194937237053821299901259208778, +0.344878404469947192487913840073272461), (+1.00549129510938811616360106628733209, +0.639720797972433952040862443389944450), (+1.33043839642846901511127181068266506, +0.634809822421275654878365360986295517), (+1.31621342597085496394067125020633116, +0.619603874079889379370200778473846358), (+1.34059772772298783884269623667199186, +0.323632554586510214174880459264260097), (+1.93705613796218973078817083056925258, +0.362904505149315615981182378487741306), (+1.60869035467975042529104900953735688, +0.802370532521903453435520533369252838), (+1.83100952300404074911755094960864246, +0.452268890292684896624404551515499917), (+1.54899572400116502179455516253937435, +0.456392725401821760083634907200199079), (+1.64322153488063567214551769245530259, +0.724364348360697178636337170970104287), (+1.00404076646512513292738054417033446, +0.701885604015849159025962740010609137E-1), (+1.30148747846508445639767500601444791, +0.252033052351399364742860396564642067), (+1.86735048005843533768420534341173977, +0.769848400168064733620230701710925228), (+1.06433936153139454974998403843140253, +0.622728870778745874123787805921205536), (+1.60370062193505049190035097863192722, +0.592028741045423728819691367024423059), (+1.77708513584229577607184855184547511, +0.597088880403367465081825976257617575), (+1.70550137117232249162211088355606305, +0.477563819151411372883970541287813248), (+1.63169005576904345571550861541511543, +0.432775804911253012497811629919357826), (+1.48798677107074109264727173258361491, +0.807667351229735758986293810832114212E-1), (+1.07448491313248994751207135506893522, +0.972373188806030722324232887444571594), (+1.38430620937443415912706386703971210, +0.790554803918265946813973102477934392E-1), (+1.89215753695622775512924725871488719, +0.156489121419302269410910855811945149), (+1.86815815501383674607230075975523289, +0.993093867254720334445375698940713298E-1), (+1.11633857316031986773219591435800119, +0.117871102797274695323162956978804590E-1), (+1.03792663229372374851440760609285989, +0.951965650420348560902321385096969038), (+1.39451921045380542064474482350660826, +0.182584915392700778355032668543100482), (+1.51787408081831721425598714568706715, +0.340015873954342804136845829445918200), (+1.02449117601912000171220134134049834, +0.494853144556058351113681986093717163), (+1.73087990428041961016180068681208649, +0.725712673292816095249940072486864781), (+1.61507875075589245556655636946762491, +0.802141602789950637524354160285079514), (+1.40197548921984694223471226269647192, +0.251840415194319043231572870782389843), (+1.04825842074534456884840841458832973, +0.479771677930417259017729047304970821)

347

348adat = getFFTI(getFFTF(data))

349adat

350(+1.25143769755908762873154060116196303, +0.294742611517534959799153669908170667), (+1.56411377546006083404237370233034370, +0.374930129049298779721716998218208427), (+1.51167663096838335312178417175250435, +0.535595318337075536259053792254405791), (+1.71428832016377623149673321503147390, +0.974689394265930624182058548097346691), (+1.00570130218364892723104168507431304, +0.380060866833532913368657818270157649), (+1.90453730760982798014895321858202405, +0.880478613527231783904193352217664491), (+1.11935496558411262409891583084060976, +0.815047910496707095798853433927488952), (+1.83695170946144153133048261859315465, +0.297172402225946442942757811635530099E-1), (+1.07737191364801293554450575189270024, +0.465508529534015506687042202144937859), (+1.67053349399810472378425656956881452, +0.949001971914867471757970444994926433), (+1.48261917325111030356039667754283234, +0.820780099094454635769811611548129415), (+1.68442197278142411320967974068099875, +0.362785265674467680605038438045481507), (+1.12330923725913584586914595388479127, +0.769140198899083608029472547797918215), (+1.50406836880453666027887397224691631, +0.795739058205297847919076472203022444), (+1.13925460856348045686091855128125436, +0.851743755192135522386527927100524496), (+1.82898278334152954642919190578380117, +0.285232861718516896203041073707522431), (+1.30935193225612171085147545525956562, +0.457726214024285702934301801102567759E-1), (+1.45554362421439028895088709620687496, +0.581834072481369247326803744135054721), (+1.96035680683327517490561180426616687, +0.659894708038623417599617944804474175), (+1.36463668712127816997769792340262612, +0.507746959032923379731560961964334620), (+1.12861581300590292871115632876970945, +0.644020137565432549651935719621247005E-1), (+1.97890233725698230342308887519058094, +0.876309571921967150638296080854216183), (+1.10254013476518384336637543219051458, +0.640062259702119813453026290771048326), (+1.17113973605906482403266725037672802, +0.239519497395485660222596232334802166), (+1.32351642825165589067503728634330685, +0.360276670323021244700550727031644213), (+1.78048326512010430653038547622935193, +0.927549594560186740123441073790176616), (+1.59500356345560734235084405914618162, +0.571176997841565647365496294382992575), (+1.67963961190608704684535616802385097, +0.475692767304584955061702491293516378), (+1.87213015893555524262740634401068422, +0.529603948021607315450817293885467196), (+1.30628873788156099448516973307979386, +0.825087804448406813061044636387429058), (+1.91282460428977724619346998135022578, +0.473416137695170794654630628095110918), (+1.57670862027260715395028565159568763, +0.264818310996604310564909345525458268), (+1.10441218333411557642121064470258611, +0.117144245647427709003266944859069923), (+1.12236243942654586022072922836886995, +0.817326004711625721959468245770756883), (+1.88123722889762310697523657707646006, +0.233858794791757375886600171625048579), (+1.38770132898335569337698657177096247, +0.518079538817902108821456842465922537), (+1.91622283804977118080970790301233922, +0.659345078764488612817623589339877830E-1), (+1.67631710712688241626752313798355776, +0.446269868513360951081691882178869214), (+1.84710947003864024815891061493979490, +0.139324043995654598365821316796335659E-1), (+1.36019035596185449900001252801326414, +0.451572166624509714260970891107056183), (+1.06284738133224838105170631225211650, +0.630192839206455016256310175648508367), (+1.68042194937237053821299901259208759, +0.344878404469947192487913840073272605), (+1.00549129510938811616360106628733247, +0.639720797972433952040862443389944932), (+1.33043839642846901511127181068266487, +0.634809822421275654878365360986295421), (+1.31621342597085496394067125020633116, +0.619603874079889379370200778473846262), (+1.34059772772298783884269623667199148, +0.323632554586510214174880459264259905), (+1.93705613796218973078817083056925162, +0.362904505149315615981182378487740969), (+1.60869035467975042529104900953735707, +0.802370532521903453435520533369253030), (+1.83100952300404074911755094960864169, +0.452268890292684896624404551515499580), (+1.54899572400116502179455516253937493, +0.456392725401821760083634907200198983), (+1.64322153488063567214551769245530278, +0.724364348360697178636337170970104383), (+1.00404076646512513292738054417033523, +0.701885604015849159025962740010608174E-1), (+1.30148747846508445639767500601444714, +0.252033052351399364742860396564642163), (+1.86735048005843533768420534341174016, +0.769848400168064733620230701710925228), (+1.06433936153139454974998403843140272, +0.622728870778745874123787805921205536), (+1.60370062193505049190035097863192664, +0.592028741045423728819691367024422866), (+1.77708513584229577607184855184547492, +0.597088880403367465081825976257617479), (+1.70550137117232249162211088355606247, +0.477563819151411372883970541287813344), (+1.63169005576904345571550861541511504, +0.432775804911253012497811629919357874), (+1.48798677107074109264727173258361433, +0.807667351229735758986293810832111203E-1), (+1.07448491313248994751207135506893465, +0.972373188806030722324232887444571402), (+1.38430620937443415912706386703971230, +0.790554803918265946813973102477935475E-1), (+1.89215753695622775512924725871488642, +0.156489121419302269410910855811945125), (+1.86815815501383674607230075975523251, +0.993093867254720334445375698940713178E-1), (+1.11633857316031986773219591435800119, +0.117871102797274695323162956978804530E-1), (+1.03792663229372374851440760609286027, +0.951965650420348560902321385096968942), (+1.39451921045380542064474482350660903, +0.182584915392700778355032668543100795), (+1.51787408081831721425598714568706830, +0.340015873954342804136845829445918297), (+1.02449117601912000171220134134049834, +0.494853144556058351113681986093717211), (+1.73087990428041961016180068681208707, +0.725712673292816095249940072486864781), (+1.61507875075589245556655636946762510, +0.802141602789950637524354160285079514), (+1.40197548921984694223471226269647288, +0.251840415194319043231572870782389891), (+1.04825842074534456884840841458833031, +0.479771677930417259017729047304971014)

351reltol = sqrt(epsilon(1._TKG))

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, adat, reltol = reltol)

355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

356call setAsserted(all(isClose(data, adat, reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+16

361data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

362data

363+1.59489393, +1.57823133, +1.37968874, +1.87192583, +1.02284384, +1.27921152, +1.96999693, +1.96376681, +1.08777761, +1.80487537, +1.31907940, +1.06822550, +1.59130716, +1.21761203, +1.29762650, +1.65538347

364

365adat = getFFTI(getFFTF(data))

366adat

367+1.59489393, +1.57823133, +1.37968874, +1.87192571, +1.02284384, +1.27921164, +1.96999693, +1.96376669, +1.08777761, +1.80487537, +1.31907940, +1.06822550, +1.59130716, +1.21761215, +1.29762650, +1.65538347

368reltol = sqrt(epsilon(1._TKG))

369reltol

370+0.345266977E-3

371isClose(data, adat, reltol = reltol)

372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

373call setAsserted(all(isClose(data, adat, reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+42

378data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

379data

380+1.8466379887567825, +1.7244661023916037, +1.0088983348752210, +1.1528632795029696, +1.0845254833155418, +1.4546105836309118, +1.5210781761980225, +1.5645025990478345, +1.5027859586132286, +1.4657254439123666, +1.1098988428979428, +1.6089528797663981, +1.7647782805172720, +1.6639282501219812, +1.3554903020410876, +1.4132117019166963, +1.9631280710996626, +1.0080768441551693, +1.3052303343330969, +1.2412391547850765, +1.1174554813473145, +1.2549470848810760, +1.2284030052107959, +1.2081097026441485, +1.4840812005586765, +1.8974581751630750, +1.1713676207251267, +1.0112564640953150, +1.7610435335606360, +1.1504827061305720, +1.7597579303372410, +1.5436779803300689, +1.9415969085607585, +1.9604683063381148, +1.4511571522352382, +1.7230053442635085, +1.0444426220144183, +1.9188454899335665, +1.0968687946673410, +1.1144028460793283, +1.5314556412103886, +1.1572546356223921

381

382adat = getFFTI(getFFTF(data))

383adat

384+1.8466379887567825, +1.7244661023916039, +1.0088983348752210, +1.1528632795029694, +1.0845254833155418, +1.4546105836309118, +1.5210781761980223, +1.5645025990478345, +1.5027859586132286, +1.4657254439123664, +1.1098988428979426, +1.6089528797663981, +1.7647782805172723, +1.6639282501219821, +1.3554903020410880, +1.4132117019166965, +1.9631280710996633, +1.0080768441551697, +1.3052303343330962, +1.2412391547850761, +1.1174554813473143, +1.2549470848810758, +1.2284030052107953, +1.2081097026441483, +1.4840812005586761, +1.8974581751630752, +1.1713676207251262, +1.0112564640953141, +1.7610435335606360, +1.1504827061305714, +1.7597579303372410, +1.5436779803300693, +1.9415969085607592, +1.9604683063381154, +1.4511571522352384, +1.7230053442635089, +1.0444426220144181, +1.9188454899335667, +1.0968687946673408, +1.1144028460793280, +1.5314556412103881, +1.1572546356223921

385reltol = sqrt(epsilon(1._TKG))

386reltol

387+0.14901161193847656E-7

388isClose(data, adat, reltol = reltol)

389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

390call setAsserted(all(isClose(data, adat, reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+53

395data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

396data

397+1.75443248568292943086238854699742710, +1.24847587571769060457549516221517093, +1.20766098998499767486729232005575372, +1.85254624852807474574714483664434544, +1.89941448080265164721189610874776809, +1.60711309637948941408912227853996719, +1.71580450653643511073472523010509168, +1.71091055096222494362205658049954382, +1.18218365453807569173965446068307506, +1.35329055908754897234335565698969428, +1.49450627912436102402060200316965057, +1.75950413781731766863961601732430208, +1.21199574396890409459836797816159230, +1.61817240778866542435375027318003647, +1.06078677320675037992905866346919049, +1.64100230227690744313789763902892309, +1.97954927071744161225334171316184320, +1.39217424199978274886300935701445148, +1.10854794616905887411817560805148927, +1.53492925330831058726977677850079592, +1.65995533674663326840057837388601252, +1.85220725246709766432073929214341694, +1.73313476582671293472041077199010295, +1.21246266149479925218963569298836621, +1.71153781198855965696115150412171097, +1.75433520337924838325484285043017501, +1.00285807163007716446886207989221744, +1.83623085445340437896522746316614336, +1.55029643819869639350426504736957539, +1.29636604126556486571409286581635767, +1.00079045290903320227101300990575421, +1.33654569990054538816064467856330601, +1.21114325933033339398682774229617012, +1.33513847268422103140097969309455416, +1.50844966188764608030880970951698821, +1.06883808517934769672627195265483612, +1.37918745533818314766599874734974733, +1.07309513863586622442257258346588988, +1.91483599139348392439007687789122116, +1.11082161705092002251066907329059844, +1.39434725915655037145953833230892966, +1.02561984153496777376324422638854242, +1.73330958285290386875422435607126096, +1.08776210027891470201188891011444138, +1.13272167735561305665148180196672601, +1.17994321525846117543082516356682022, +1.88487490984589021042609454519771428, +1.75950462984379466135238254643804827, +1.32765746921655887761103094662705145, +1.51221766429917602201623731386173832, +1.92462115788553339348822678277256788, +1.77081839783444904983688598451864280, +1.86048930764414391792346838434349288

398

399adat = getFFTI(getFFTF(data))

400adat

401+1.75443248568292943086238854699742690, +1.24847587571769060457549516221517016, +1.20766098998499767486729232005575315, +1.85254624852807474574714483664434487, +1.89941448080265164721189610874776790, +1.60711309637948941408912227853996700, +1.71580450653643511073472523010509187, +1.71091055096222494362205658049954439, +1.18218365453807569173965446068307448, +1.35329055908754897234335565698969428, +1.49450627912436102402060200316965038, +1.75950413781731766863961601732430381, +1.21199574396890409459836797816159076, +1.61817240778866542435375027318003820, +1.06078677320675037992905866346918838, +1.64100230227690744313789763902892502, +1.97954927071744161225334171316184628, +1.39217424199978274886300935701445167, +1.10854794616905887411817560805148734, +1.53492925330831058726977677850079573, +1.65995533674663326840057837388601271, +1.85220725246709766432073929214341906, +1.73313476582671293472041077199010353, +1.21246266149479925218963569298836505, +1.71153781198855965696115150412171020, +1.75433520337924838325484285043017925, +1.00285807163007716446886207989220954, +1.83623085445340437896522746316614567, +1.55029643819869639350426504736957674, +1.29636604126556486571409286581635709, +1.00079045290903320227101300990575286, +1.33654569990054538816064467856330678, +1.21114325933033339398682774229616954, +1.33513847268422103140097969309455416, +1.50844966188764608030880970951698937, +1.06883808517934769672627195265483535, +1.37918745533818314766599874734974829, +1.07309513863586622442257258346588757, +1.91483599139348392439007687789122578, +1.11082161705092002251066907329059690, +1.39434725915655037145953833230893062, +1.02561984153496777376324422638854030, +1.73330958285290386875422435607126366, +1.08776210027891470201188891011444003, +1.13272167735561305665148180196672621, +1.17994321525846117543082516356681945, +1.88487490984589021042609454519771544, +1.75950462984379466135238254643804846, +1.32765746921655887761103094662705106, +1.51221766429917602201623731386173774, +1.92462115788553339348822678277256730, +1.77081839783444904983688598451864299, +1.86048930764414391792346838434349250

402reltol = sqrt(epsilon(1._TKG))

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, adat, reltol = reltol)

406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

407call setAsserted(all(isClose(data, adat, reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+9

412data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

413data

414(+1.83763385, +0.184816718E-1), (+1.79631639, +0.313090920), (+1.51831007, +0.688499212), (+1.47957325, +0.576460123), (+1.46597528, +0.818544090), (+1.22973752, +0.648710549), (+1.06243110, +0.842655182), (+1.85453582, +0.698663235), (+1.21794534, +0.688672423)

415

416adat = getFFTI(getFFTF(data))

417adat

418(+1.83763373, +0.184816793E-1), (+1.79631639, +0.313090950), (+1.51831019, +0.688499212), (+1.47957337, +0.576460123), (+1.46597540, +0.818544149), (+1.22973764, +0.648710549), (+1.06243110, +0.842655182), (+1.85453582, +0.698663235), (+1.21794558, +0.688672483)

419reltol = sqrt(epsilon(1._TKG))

420reltol

421+0.345266977E-3

422isClose(data, adat, reltol = reltol)

423T, T, T, T, T, T, T, T, T

424call setAsserted(all(isClose(data, adat, reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+91

429data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

430data

431(+1.4841896190248225, +0.76087530139198922), (+1.7810978495755281, +0.81188010142322387), (+1.6277595047258777, +0.71354777622393728), (+1.7356244566240995, +0.51338761593668769), (+1.5170049351237609, +0.23253477918363652), (+1.8042117318185440, +0.21190165245493064), (+1.1302218765268646, +0.12084524824469889), (+1.2688561601322632, +0.31659910738042485), (+1.8100965842357435, +0.91225622836038500), (+1.5930827987801601, +0.36554264421119753), (+1.6891693535641643, +0.65405266739109469), (+1.2263628024987718, +0.46423009984931884), (+1.0693460710241456, +0.85686378265727403), (+1.4738298354953583, +0.70288365485318194), (+1.1164142805933279, +0.40268406525474831), (+1.6679442969246958, +0.40319991102089048), (+1.6342159130416900, +0.44850814916207560), (+1.8979051073891466, +0.58427642903721166), (+1.7222113165227646, +0.30500507981896130), (+1.6181243859173502, +0.50610772871015208), (+1.2843455440392848, +0.55387972220113324), (+1.5806382024282102, +0.93488089704334754E-1), (+1.1612055798178789, +0.82480934772380254), (+1.4211140729489753, +0.85439808815355511), (+1.2382185221270032, +0.22002441420161667), (+1.3454623623908053, +0.96803885146682023), (+1.3286161166462724, +0.87738003577599222), (+1.5014094429342335, +0.60082615080612412E-1), (+1.6554152578166854, +0.79888628021729025), (+1.1884949326044054, +0.10797290972632934), (+1.5094652693403270, +0.90236147796759369E-1), (+1.1993137947284529, +0.63356484001291036), (+1.4043291528880579, +0.86441870571679147), (+1.2459998294420740, +0.99811692876880254), (+1.4689175050263472, +0.44324532221730706), (+1.4050837635179516, +0.15507569695835755), (+1.7654152320185923, +0.74687972127265545), (+1.3948934164596611, +0.40629648493500614), (+1.8360370398427139, +0.83558300960277754), (+1.6001384843489581, +0.35945650458842071), (+1.7453613748888130, +0.61334800921593935E-1), (+1.0284186181746964, +0.46557185156050007E-1), (+1.8210545638039142, +0.70037387747720958), (+1.3541151536313532, +0.97325080265150254), (+1.3135229686158589, +0.40216479402885230), (+1.7876997894787423, +0.56673271237462153), (+1.8784368733973973, +0.51823324647142688), (+1.3537608920695550, +0.78696620207869739), (+1.8334490293655321, +0.92425405847400444), (+1.3119536928308078, +0.25470939132179971), (+1.4434397453399708, +0.12512318950166823), (+1.8850177446491800, +0.98818677083523521), (+1.1702010581349858, +0.62710497094870643E-1), (+1.6863343229714660, +0.67756573637877249), (+1.3486985180119311, +0.36569655688921732), (+1.0332937597105785, +0.82580514905504776), (+1.1822492576354267, +0.71454742665480209), (+1.4264367440512309, +0.29079608537872514), (+1.8750601652329462, +0.43870608979333425), (+1.9469161309785603, +0.98870200827864063), (+1.8073356720958109, +0.96815781989120375), (+1.1016443046790039, +0.99455879134873582), (+1.5807127803469698, +0.43673174630132194), (+1.1776871362672774, +0.66187676422112363), (+1.1257190448749941, +0.36248652507261292), (+1.8263741146348740, +0.18496562040793540), (+1.5714544466264568, +0.93691390603780156), (+1.6298892065631310, +0.84940324248089805), (+1.0379904927925863, +0.10797878652436332), (+1.8325825427665225, +0.91394777825269147), (+1.4959904271363698, +0.40635636784536056), (+1.2519542763152207, +0.97838419473077820), (+1.0342518605202713, +0.15420496109293258), (+1.7794962628327458, +0.51621158830076441), (+1.5074184697346764, +0.56254422276764704), (+1.5602533901584210, +0.82618559299563299), (+1.9637601016121482, +0.12895470640747320), (+1.1885832644452095, +0.27650755726841825), (+1.8992260467904891, +0.39725541093989314), (+1.5389159927806537, +0.65564306315621168), (+1.6444078505601705, +0.27715552707948921), (+1.9325561035748251, +0.55937289473377738), (+1.2751678340732424, +0.40394771013309339), (+1.7132139847904597, +0.28417311406534340), (+1.8630518508004523, +0.67550518918591784), (+1.2949135814842869, +0.51101338853421263), (+1.8069379892242050, +0.48023477769742884), (+1.8261477833777016, +0.21466300124283744), (+1.8194594654665730, +0.19432746629369779E-2), (+1.9047416067284146, +0.57010234619676114), (+1.0850908418705771, +0.17896482905548750)

432

433adat = getFFTI(getFFTF(data))

434adat

435(+1.4841896190248229, +0.76087530139198922), (+1.7810978495755294, +0.81188010142322431), (+1.6277595047258786, +0.71354777622393750), (+1.7356244566241001, +0.51338761593668802), (+1.5170049351237618, +0.23253477918363655), (+1.8042117318185444, +0.21190165245493081), (+1.1302218765268648, +0.12084524824469908), (+1.2688561601322632, +0.31659910738042474), (+1.8100965842357435, +0.91225622836038522), (+1.5930827987801599, +0.36554264421119781), (+1.6891693535641650, +0.65405266739109458), (+1.2263628024987725, +0.46423009984931934), (+1.0693460710241460, +0.85686378265727414), (+1.4738298354953585, +0.70288365485318194), (+1.1164142805933281, +0.40268406525474870), (+1.6679442969246969, +0.40319991102089103), (+1.6342159130416904, +0.44850814916207571), (+1.8979051073891475, +0.58427642903721178), (+1.7222113165227657, +0.30500507981896141), (+1.6181243859173506, +0.50610772871015253), (+1.2843455440392850, +0.55387972220113324), (+1.5806382024282106, +0.93488089704334712E-1), (+1.1612055798178789, +0.82480934772380232), (+1.4211140729489760, +0.85439808815355556), (+1.2382185221270043, +0.22002441420161709), (+1.3454623623908062, +0.96803885146682067), (+1.3286161166462729, +0.87738003577599211), (+1.5014094429342342, +0.60082615080612745E-1), (+1.6554152578166856, +0.79888628021729058), (+1.1884949326044059, +0.10797290972632925), (+1.5094652693403270, +0.90236147796759550E-1), (+1.1993137947284538, +0.63356484001291047), (+1.4043291528880584, +0.86441870571679169), (+1.2459998294420738, +0.99811692876880276), (+1.4689175050263472, +0.44324532221730717), (+1.4050837635179516, +0.15507569695835743), (+1.7654152320185930, +0.74687972127265534), (+1.3948934164596614, +0.40629648493500631), (+1.8360370398427144, +0.83558300960277798), (+1.6001384843489583, +0.35945650458842038), (+1.7453613748888135, +0.61334800921594088E-1), (+1.0284186181746968, +0.46557185156050299E-1), (+1.8210545638039144, +0.70037387747720969), (+1.3541151536313529, +0.97325080265150254), (+1.3135229686158594, +0.40216479402885219), (+1.7876997894787428, +0.56673271237462164), (+1.8784368733973973, +0.51823324647142666), (+1.3537608920695547, +0.78696620207869694), (+1.8334490293655321, +0.92425405847400433), (+1.3119536928308075, +0.25470939132179971), (+1.4434397453399705, +0.12512318950166806), (+1.8850177446491809, +0.98818677083523543), (+1.1702010581349862, +0.62710497094870796E-1), (+1.6863343229714671, +0.67756573637877304), (+1.3486985180119317, +0.36569655688921754), (+1.0332937597105782, +0.82580514905504809), (+1.1822492576354262, +0.71454742665480186), (+1.4264367440512311, +0.29079608537872498), (+1.8750601652329457, +0.43870608979333442), (+1.9469161309785605, +0.98870200827864085), (+1.8073356720958107, +0.96815781989120342), (+1.1016443046790034, +0.99455879134873582), (+1.5807127803469707, +0.43673174630132194), (+1.1776871362672769, +0.66187676422112374), (+1.1257190448749950, +0.36248652507261303), (+1.8263741146348738, +0.18496562040793524), (+1.5714544466264579, +0.93691390603780167), (+1.6298892065631312, +0.84940324248089805), (+1.0379904927925867, +0.10797878652436334), (+1.8325825427665230, +0.91394777825269136), (+1.4959904271363702, +0.40635636784536022), (+1.2519542763152212, +0.97838419473077831), (+1.0342518605202715, +0.15420496109293283), (+1.7794962628327460, +0.51621158830076430), (+1.5074184697346769, +0.56254422276764715), (+1.5602533901584215, +0.82618559299563310), (+1.9637601016121489, +0.12895470640747339), (+1.1885832644452099, +0.27650755726841797), (+1.8992260467904896, +0.39725541093989314), (+1.5389159927806546, +0.65564306315621235), (+1.6444078505601716, +0.27715552707948921), (+1.9325561035748262, +0.55937289473377738), (+1.2751678340732431, +0.40394771013309333), (+1.7132139847904602, +0.28417311406534312), (+1.8630518508004523, +0.67550518918591840), (+1.2949135814842869, +0.51101338853421285), (+1.8069379892242052, +0.48023477769742878), (+1.8261477833777016, +0.21466300124283780), (+1.8194594654665737, +0.19432746629371720E-2), (+1.9047416067284155, +0.57010234619676192), (+1.0850908418705778, +0.17896482905548761)

436reltol = sqrt(epsilon(1._TKG))

437reltol

438+0.14901161193847656E-7

439isClose(data, adat, reltol = reltol)

440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

441call setAsserted(all(isClose(data, adat, reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+90

446data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)

447data

448(+1.36359794196485296860917916802632382, +0.874558582707723078157536686105673299), (+1.44994427735438750217261566583810813, +0.637528140424215220989350479650464603), (+1.47034770416000807766233043638993822, +0.206187587587136285551888967288990995), (+1.36236045002740098853359435153322358, +0.544865876672686026289622109490598543), (+1.06846115896349643652205778834867475, +0.755120264681817684442108146114467250E-1), (+1.82559156721443580495863085771436288, +0.885664533536536297406674173775829650), (+1.47623819536451390626794253971468890, +0.549933361486942902263608209101545609), (+1.11844869943473151639175519108472879, +0.876042397179777738685427360163879150), (+1.33133927256705713350413224592454397, +0.640858404232929672543263957079958291), (+1.92641399864047920858886655967975956, +0.213268660475164457069408983327162540), (+1.72953846717470264450224774943719182, +0.220116205208202912906282829547696509), (+1.83913997579289352063648567723082140, +0.766241859060530226885030264339734713E-1), (+1.00707450915122357250382146527456810, +0.316139129900696948459310212212711575), (+1.94145741992029206528537345041540788, +0.961500379333219459894249672446612747), (+1.86794048809091784532538413252188701, +0.126039383400289062629258506473435841), (+1.80917236021955806150891740768535866, +0.248884047024707733075307048418712287), (+1.66738120366778534476881566685667199, +0.707944207152751251318223971212418135), (+1.85956810885583965127798109070975047, +0.900860805881960303267894642876369098), (+1.46166746679362328902243197245452651, +0.228969169360030808286943170012555091), (+1.77024132653961616958626013680383797, +0.124258202148968629328670448522001754), (+1.86812865444694382236001593378968673, +0.558968160995906119455253318839430247), (+1.09472571506501167397050502883080920, +0.641310500077838181967054816835312376), (+1.12559530288078931891567521681867578, +0.282818027586712988507175902627065620E-1), (+1.09226639673863427294313929101328777, +0.956573394417872077821933291258274356), (+1.20002782385901295062216884184543903, +0.748089652794392974458778156251362196), (+1.78956810086222898673672077606613304, +0.262209882293332947966434701868046915), (+1.83424230575708920107583782488287880, +0.385543842255882585216068845469112541), (+1.23378256728482920240803740976526221, +0.412739712368790542468682270526998393E-3), (+1.26344934701795186841271507178959812, +0.986920962458083652479789555238505257), (+1.54948949550728510111235659242922450, +0.526820032100232949658478904991620299), (+1.80370498568915195266268302293688541, +0.696444030757445242297505827404804337), (+1.89059133484314192786814432193265886, +0.463933165082379532906675782965095249), (+1.62427495070518810463716186512537382, +0.906864544709560824577427953832786703), (+1.69341007214772104371594585267266713, +0.641434841690537648069543414926013307), (+1.39109250415427929172489113158274456, +0.374022626126674030524651614211051343E-1), (+1.12188357389071676598524757027947657, +0.859068074478760477908264164818720137), (+1.00025451606030251309229045735984098, +0.544551329878955974938972652506493608), (+1.79727292238978972802631260950602242, +0.525850070675676785587208674646876385), (+1.35720583156081628241700779676395799, +0.903801026327869864072265241381003809E-1), (+1.50666812885919762992272544368741041, +0.743899673688232058434415582523439722), (+1.29371313971133970948645319042551404, +0.187425232566593405568562523966174224), (+1.31762261249833181986742188051042371, +0.296668082899470166507680386736023597), (+1.06728871707135812890717733364894350, +0.827861238779062854665650752158747438), (+1.88594890335076092648548343778770328, +0.694399966390531419570713083398935603), (+1.94954913024039274475733886772877977, +0.498736058748408126800416691394752637), (+1.52978849499385003034456475884317664, +0.399576933058266875947071568846203449E-1), (+1.57661943532299643037881752744765729, +0.921239258112258581804308892807028868E-1), (+1.77001261810590085017940591400942140, +0.310517806389101334423164501315830669), (+1.68363591856743131482602865619433601, +0.559830217734100247737062473415777345), (+1.01115089269920410347217393118922761, +0.463059730280250717133498454809603901), (+1.38716671967684223519262477249108542, +0.417571330086899606302736551149997689), (+1.19219419635100535280720082979265299, +0.359884297772221522840704862290363196), (+1.51910552829230388367823993342146677, +0.542042044630912615136594664091751665), (+1.48717999790332965268934218347686253, +0.416735829865308022818209980476661244), (+1.72458409821428826143375221297255939, +0.520351042129434965277863580652072106), (+1.84370419131702426552561536679893390, +0.602803589833853903057404225441996517), (+1.01368864313531885493045204577667210, +0.247177256732171055935957520444893737), (+1.83946957475565286603864880306596578, +0.992955350724757303807754725196493750), (+1.25047536417359774124234273134149194, +0.118153355319303338161244335318094728E-1), (+1.38860322739717622328528659827825306, +0.811410541644117802189065415123431990), (+1.60644848920808372345817902870375882, +0.736266407758860774324982316437872543), (+1.75942080401173063376704383934853368, +0.375515575410288400846466337941740344), (+1.21212690178750386557521773610717652, +0.676567652115953248722379831324641964), (+1.28885057303885837752104933158379965, +0.628999742024561410126411461792556660E-1), (+1.52117114188747943480575395841445364, +0.636614538204479072610219407212777061), (+1.45184459324044742396603020464601428, +0.844932008544399556354337661295827918E-1), (+1.35100655888189788267351082759269763, +0.351889595350794025378319187824886409), (+1.54817800160184255256431933758718123, +0.418314219641328342045580451469939986E-1), (+1.18678345987283268526773493545766946, +0.759527146304347019428408677320214455), (+1.07483061297191882579627498576291695, +0.558549322038801729749662368108062718), (+1.49286532396958659351357073096312701, +0.680996509532212423740706003324961667), (+1.19193851153821269684894838470640944, +0.460850390235768502956534343810400986E-1), (+1.33863196783914814396204430422146072, +0.378549775429292159238984045433300165), (+1.29906636223858447676317050749904385, +0.866608473675039739003359412344985846), (+1.33644784098145912767601479535493023, +0.229678263097777310093558121928838887), (+1.04165391913646834005961902533417079, +0.235377829688659401861709349468630759), (+1.16882486423465044153491266602308331, +0.901104962311474650839147758892599345E-1), (+1.20405348872681369778780635015650674, +0.316627523395831947569143808686029877), (+1.53158321624150579212641953857182960, +0.598190729907533638464048112218013440), (+1.57858759039292748570206293574162748, +0.591893909141073083811126280377642043), (+1.73765849163075577078767501785040701, +0.482799332508761295417096670796201997), (+1.99939277611148332272666841709584169, +0.127698931092414201295361828925971607), (+1.50660919153370001588802847517260521, +0.574159877533635128960203825067350431), (+1.20512590566169147316973294448740493, +0.606958355975793910173531656284220779), (+1.02462795464182143426992741911944348, +0.221241862438511203646262877184628827), (+1.89075916855159654417546447948061243, +0.865337683592702656739804063708634978), (+1.94441449756302228172092927033181353, +0.436257655778958700997549360040402692), (+1.38902160020527817413863765354937371, +0.437211915017694942119743060082549367), (+1.24066090879545452277302726746359249, +0.998120705060980934519353488105059415), (+1.04739626572817454195174788686176047, +0.539454288847025453776921626443558880)

449

450adat = getFFTI(getFFTF(data))

451adat

452(+1.36359794196485296860917916802632382, +0.874558582707723078157536686105673299), (+1.44994427735438750217261566583810794, +0.637528140424215220989350479650464700), (+1.47034770416000807766233043638993802, +0.206187587587136285551888967288990851), (+1.36236045002740098853359435153322377, +0.544865876672686026289622109490598543), (+1.06846115896349643652205778834867418, +0.755120264681817684442108146114467010E-1), (+1.82559156721443580495863085771436308, +0.885664533536536297406674173775829361), (+1.47623819536451390626794253971468832, +0.549933361486942902263608209101545705), (+1.11844869943473151639175519108472879, +0.876042397179777738685427360163879054), (+1.33133927256705713350413224592454397, +0.640858404232929672543263957079958194), (+1.92641399864047920858886655967975917, +0.213268660475164457069408983327162660), (+1.72953846717470264450224774943719143, +0.220116205208202912906282829547696485), (+1.83913997579289352063648567723082140, +0.766241859060530226885030264339735435E-1), (+1.00707450915122357250382146527456829, +0.316139129900696948459310212212711624), (+1.94145741992029206528537345041540788, +0.961500379333219459894249672446612651), (+1.86794048809091784532538413252188643, +0.126039383400289062629258506473435938), (+1.80917236021955806150891740768535847, +0.248884047024707733075307048418712263), (+1.66738120366778534476881566685667141, +0.707944207152751251318223971212417942), (+1.85956810885583965127798109070975067, +0.900860805881960303267894642876368809), (+1.46166746679362328902243197245452651, +0.228969169360030808286943170012555043), (+1.77024132653961616958626013680383759, +0.124258202148968629328670448522001754), (+1.86812865444694382236001593378968654, +0.558968160995906119455253318839430151), (+1.09472571506501167397050502883080901, +0.641310500077838181967054816835312665), (+1.12559530288078931891567521681867540, +0.282818027586712988507175902627065590E-1), (+1.09226639673863427294313929101328777, +0.956573394417872077821933291258274067), (+1.20002782385901295062216884184543845, +0.748089652794392974458778156251362100), (+1.78956810086222898673672077606613323, +0.262209882293332947966434701868046723), (+1.83424230575708920107583782488287861, +0.385543842255882585216068845469112638), (+1.23378256728482920240803740976526278, +0.412739712368790542468682270526947047E-3), (+1.26344934701795186841271507178959774, +0.986920962458083652479789555238505160), (+1.54948949550728510111235659242922431, +0.526820032100232949658478904991620395), (+1.80370498568915195266268302293688503, +0.696444030757445242297505827404804337), (+1.89059133484314192786814432193265848, +0.463933165082379532906675782965095201), (+1.62427495070518810463716186512537362, +0.906864544709560824577427953832786511), (+1.69341007214772104371594585267266713, +0.641434841690537648069543414926013403), (+1.39109250415427929172489113158274379, +0.374022626126674030524651614211050380E-1), (+1.12188357389071676598524757027947696, +0.859068074478760477908264164818720041), (+1.00025451606030251309229045735984060, +0.544551329878955974938972652506493319), (+1.79727292238978972802631260950602262, +0.525850070675676785587208674646876289), (+1.35720583156081628241700779676395819, +0.903801026327869864072265241381002725E-1), (+1.50666812885919762992272544368740945, +0.743899673688232058434415582523439818), (+1.29371313971133970948645319042551365, +0.187425232566593405568562523966174103), (+1.31762261249833181986742188051042390, +0.296668082899470166507680386736023597), (+1.06728871707135812890717733364894331, +0.827861238779062854665650752158747149), (+1.88594890335076092648548343778770328, +0.694399966390531419570713083398935699), (+1.94954913024039274475733886772877900, +0.498736058748408126800416691394752878), (+1.52978849499385003034456475884317683, +0.399576933058266875947071568846204472E-1), (+1.57661943532299643037881752744765691, +0.921239258112258581804308892807030072E-1), (+1.77001261810590085017940591400942121, +0.310517806389101334423164501315830284), (+1.68363591856743131482602865619433581, +0.559830217734100247737062473415777249), (+1.01115089269920410347217393118922722, +0.463059730280250717133498454809604093), (+1.38716671967684223519262477249108523, +0.417571330086899606302736551149997641), (+1.19219419635100535280720082979265280, +0.359884297772221522840704862290363292), (+1.51910552829230388367823993342146620, +0.542042044630912615136594664091751665), (+1.48717999790332965268934218347686311, +0.416735829865308022818209980476661244), (+1.72458409821428826143375221297255882, +0.520351042129434965277863580652072202), (+1.84370419131702426552561536679893390, +0.602803589833853903057404225441996517), (+1.01368864313531885493045204577667171, +0.247177256732171055935957520444893617), (+1.83946957475565286603864880306596559, +0.992955350724757303807754725196493847), (+1.25047536417359774124234273134149232, +0.118153355319303338161244335318094261E-1), (+1.38860322739717622328528659827825287, +0.811410541644117802189065415123431894), (+1.60644848920808372345817902870375863, +0.736266407758860774324982316437872447), (+1.75942080401173063376704383934853349, +0.375515575410288400846466337941740199), (+1.21212690178750386557521773610717652, +0.676567652115953248722379831324641868), (+1.28885057303885837752104933158380003, +0.628999742024561410126411461792556901E-1), (+1.52117114188747943480575395841445326, +0.636614538204479072610219407212777158), (+1.45184459324044742396603020464601428, +0.844932008544399556354337661295827316E-1), (+1.35100655888189788267351082759269705, +0.351889595350794025378319187824886361), (+1.54817800160184255256431933758718104, +0.418314219641328342045580451469942273E-1), (+1.18678345987283268526773493545766965, +0.759527146304347019428408677320214359), (+1.07483061297191882579627498576291676, +0.558549322038801729749662368108063007), (+1.49286532396958659351357073096312643, +0.680996509532212423740706003324961667), (+1.19193851153821269684894838470640925, +0.460850390235768502956534343810402129E-1), (+1.33863196783914814396204430422146091, +0.378549775429292159238984045433300213), (+1.29906636223858447676317050749904365, +0.866608473675039739003359412344985558), (+1.33644784098145912767601479535493003, +0.229678263097777310093558121928838983), (+1.04165391913646834005961902533417079, +0.235377829688659401861709349468630663), (+1.16882486423465044153491266602308293, +0.901104962311474650839147758892600188E-1), (+1.20405348872681369778780635015650694, +0.316627523395831947569143808686029780), (+1.53158321624150579212641953857182960, +0.598190729907533638464048112218013343), (+1.57858759039292748570206293574162748, +0.591893909141073083811126280377642140), (+1.73765849163075577078767501785040682, +0.482799332508761295417096670796201901), (+1.99939277611148332272666841709584169, +0.127698931092414201295361828925972064), (+1.50660919153370001588802847517260501, +0.574159877533635128960203825067350527), (+1.20512590566169147316973294448740513, +0.606958355975793910173531656284220876), (+1.02462795464182143426992741911944290, +0.221241862438511203646262877184628827), (+1.89075916855159654417546447948061223, +0.865337683592702656739804063708635075), (+1.94441449756302228172092927033181353, +0.436257655778958700997549360040402644), (+1.38902160020527817413863765354937371, +0.437211915017694942119743060082549415), (+1.24066090879545452277302726746359210, +0.998120705060980934519353488105058933), (+1.04739626572817454195174788686176047, +0.539454288847025453776921626443559073)

453reltol = sqrt(epsilon(1._TKG))

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, adat, reltol = reltol)

457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

458call setAsserted(all(isClose(data, adat, reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+43

463data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

464data

465+1.08924603, +1.75817406, +1.77585995, +1.79183149, +1.18847752, +1.89459848, +1.20738196, +1.06001985, +1.95773602, +1.00216401, +1.20025420, +1.78237450, +1.07590556, +1.92947197, +1.13423944, +1.53808379, +1.46741796, +1.84954989, +1.01196837, +1.40402091, +1.25901401, +1.03129959, +1.62011552, +1.57483745, +1.53135586, +1.62642789, +1.62576175, +1.49625325, +1.77457929, +1.33532643, +1.91372156, +1.53390634, +1.80803955, +1.36597395, +1.57746077, +1.61927891, +1.55165839, +1.49839783, +1.42611015, +1.55990219, +1.49604845, +1.12818599, +1.57135296

466

467adat = getFFTI(getFFTF(data))

468adat

469+1.08924735, +1.75817430, +1.77586043, +1.79183137, +1.18847871, +1.89459801, +1.20738268, +1.06002057, +1.95773423, +1.00216496, +1.20025408, +1.78237295, +1.07590830, +1.92946839, +1.13424253, +1.53808200, +1.46741986, +1.84954500, +1.01197243, +1.40401924, +1.25901473, +1.03130043, +1.62011135, +1.57483816, +1.53135562, +1.62642753, +1.62576032, +1.49625444, +1.77457726, +1.33532906, +1.91371918, +1.53390765, +1.80803823, +1.36597466, +1.57745981, +1.61927867, +1.55165839, +1.49839830, +1.42611063, +1.55990243, +1.49604869, +1.12818694, +1.57135308

470reltol = sqrt(epsilon(1._TKG))

471reltol

472+0.345266977E-3

473isClose(data, adat, reltol = reltol)

474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

475call setAsserted(all(isClose(data, adat, reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+25

480data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

481data

482+1.3097058401872395, +1.0004653222691413, +1.6094741892406850, +1.3823569995615939, +1.3917106168952911, +1.8471729148451916, +1.7893095095236675, +1.6488064272551233, +1.5171905483651462, +1.7382475953682983, +1.8732239653512939, +1.3776762980697075, +1.3589869483475217, +1.2082998030756027, +1.0491917814276213, +1.2201065901848875, +1.3547729966794502, +1.9336768016628951, +1.0204472683225116, +1.7237155015086378, +1.4595314634346801, +1.9589445863008610, +1.2836191495371181, +1.7124308799999088, +1.7876107282663245

483

484adat = getFFTI(getFFTF(data))

485adat

486+1.3097058401872399, +1.0004653222691415, +1.6094741892406850, +1.3823569995615943, +1.3917106168952915, +1.8471729148451921, +1.7893095095236675, +1.6488064272551231, +1.5171905483651464, +1.7382475953682985, +1.8732239653512937, +1.3776762980697073, +1.3589869483475212, +1.2082998030756025, +1.0491917814276217, +1.2201065901848873, +1.3547729966794497, +1.9336768016628947, +1.0204472683225114, +1.7237155015086381, +1.4595314634346801, +1.9589445863008610, +1.2836191495371179, +1.7124308799999088, +1.7876107282663247

487reltol = sqrt(epsilon(1._TKG))

488reltol

489+0.14901161193847656E-7

490isClose(data, adat, reltol = reltol)

491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

492call setAsserted(all(isClose(data, adat, reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+54

497data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)

498data

499+1.04800403971987241408362474071914480, +1.00147600328192365961090425791427069, +1.47574003559197562705076689283611427, +1.40154307170843833889573247455761012, +1.44461780938177322337941083901594297, +1.81749863615774364489236769471659604, +1.69526918285981074513687490237730633, +1.26512941038715711004011984010089538, +1.10907819681717858287632118674788284, +1.51131423732945680137852796954781566, +1.20642008073985912748400809661334299, +1.45503560019427579318943633498251222, +1.13265319728107900308069199248423157, +1.78660084212001084703240507089111235, +1.92800957120480843160140753465431922, +1.19340344970003491146272059984699918, +1.40514394594345819777826384341909418, +1.72524216929100093503951261164582512, +1.18014828378166778444920415885336422, +1.51505838159098693643520033652377007, +1.31107041358666332166172923717253617, +1.90462286691340514446596341155274266, +1.59080895488811700207385732119101817, +1.36294703921249634191463098883258022, +1.82045753158059549117448787398717464, +1.39261437228383498920173968052454336, +1.94452316983409382151069206833700553, +1.78303336020661633282614651125190739, +1.60792503539611602175957868265408982, +1.82045947810483891353764144558901131, +1.99164810629059081011638529651923616, +1.32309271608701569979415536845736629, +1.02343634714807527980860025750830409, +1.09935596759394118464962545830412095, +1.71370446283396715724420222128023238, +1.05231504217646094797030294584382629, +1.36517026593466631633267769272331378, +1.53576618115286145658800574770648715, +1.14344418854058186259506588399000702, +1.24542557018970886490869888503675950, +1.48429390101028110099591889514256498, +1.64386207124985020447512476654100920, +1.23398037153436034706780647816762481, +1.25738591796964593358155223157923667, +1.84943282574087655749918844291038761, +1.86229109137800424919446075441884433, +1.87057904846220048644169889993408955, +1.11865541148712102311016869457622228, +1.55389461094450015691130616250149016, +1.46710218689726882805185219022444107, +1.51076142532728383020013522026696584, +1.51935846487207390447669385699014551, +1.38625430964280165237441576183916063, +1.06255922420089154363555913406829434

500

501adat = getFFTI(getFFTF(data))

502adat

503+1.04800403971987241408362474071914460, +1.00147600328192365961090425791427089, +1.47574003559197562705076689283611407, +1.40154307170843833889573247455760992, +1.44461780938177322337941083901594278, +1.81749863615774364489236769471659585, +1.69526918285981074513687490237730594, +1.26512941038715711004011984010089538, +1.10907819681717858287632118674788284, +1.51131423732945680137852796954781566, +1.20642008073985912748400809661334260, +1.45503560019427579318943633498251184, +1.13265319728107900308069199248423157, +1.78660084212001084703240507089111254, +1.92800957120480843160140753465431903, +1.19340344970003491146272059984699918, +1.40514394594345819777826384341909380, +1.72524216929100093503951261164582473, +1.18014828378166778444920415885336403, +1.51505838159098693643520033652377007, +1.31107041358666332166172923717253636, +1.90462286691340514446596341155274246, +1.59080895488811700207385732119101797, +1.36294703921249634191463098883258003, +1.82045753158059549117448787398717426, +1.39261437228383498920173968052454317, +1.94452316983409382151069206833700534, +1.78303336020661633282614651125190700, +1.60792503539611602175957868265408943, +1.82045947810483891353764144558901111, +1.99164810629059081011638529651923577, +1.32309271608701569979415536845736649, +1.02343634714807527980860025750830409, +1.09935596759394118464962545830412095, +1.71370446283396715724420222128023218, +1.05231504217646094797030294584382610, +1.36517026593466631633267769272331358, +1.53576618115286145658800574770648753, +1.14344418854058186259506588399000702, +1.24542557018970886490869888503675931, +1.48429390101028110099591889514256498, +1.64386207124985020447512476654100901, +1.23398037153436034706780647816762443, +1.25738591796964593358155223157923667, +1.84943282574087655749918844291038741, +1.86229109137800424919446075441884414, +1.87057904846220048644169889993408898, +1.11865541148712102311016869457622209, +1.55389461094450015691130616250148997, +1.46710218689726882805185219022444127, +1.51076142532728383020013522026696584, +1.51935846487207390447669385699014512, +1.38625430964280165237441576183916044, +1.06255922420089154363555913406829415

504reltol = sqrt(epsilon(1._TKG))

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, adat, reltol = reltol)

508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

509call setAsserted(all(isClose(data, adat, reltol = reltol)))

510

511

Test:: test_pm_fftpack

Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.

Copyright: Computational Data Science Lab

Author:: Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 1567 of file pm_fftpack.F90.

The documentation for this interface was generated from the following file:

src/fortran/main/pm_fftpack.F90